Select Code to Download

use 5.010;  # needs perl version 5.10 regex extensions

...
    return $string;

    }  # end sub replace_lt_6()

$string =~ s{

...

    }
    {$replace}xmsg;