c:\@Work\Perl\monks>perl -wMstrict -le
"my $string = 'London';
 my @capitals = split /,/, $string;
 if (@capitals == 1 && $capitals[0] eq 'London') {
   print q{contains only 'London'}
   }
"
contains only 'London'