Help for this page

Select Code to Download


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

...
$string =~  s/(_)([^']+?)(_)/$1'$2$3/go;

print $string;