if ($st =~ s/, CA\b/, California/) {
   print "$st\n";
}