Stuff
public text v1 · immutable#!/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"}
#!/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"}