Help for this page

Select Code to Download


  1. or download this
    use strict;
use warnings;
...
$str =~ s/(?<=\W\w)\.//g;

print $str, "\n";
  2. or download this
    # Remove periods and capitalize, so we have US instead of us.
$str =~ s/(?<=\W)(\w)\./\U$1/g;