Help for this page

Select Code to Download


  1. or download this
    perl -p -e 'if(s/^(\d+)://g) { my $x = $1; s/\d+/$x/g; }' foo.txt