Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl
#
...

$str =~ s/(.+): \1/$1/;
print "'$1'\n$str\n";