Select Code to Download

$len = length($field);
$field1 = substr($field, 0, int($len/2));
$field2 = substr($field, -int($len/2));
$field = $field1 if ($field1 eq $field2);

$field =~ s/^(.+)\s*\1/$1/;

$field =~ s/(.{2,})\s*\1/$1/g;

$field =~ s/\b(.+)\b\s*\1\b/$1/g;

sub test1 {
   my $len = length($_[0]);
...
John Johnson
foo John Johnson bar
John Smith!John Smith