#!/usr/bin/perl

$a = "Hereford & Worcester Hereford & Worcester";
$b = substr($a,0,int((length($a)-1))/2);
$c = "$b $b"; if ($a eq $c) {print "y\n"} else {print "n\n"}