Help for this page
use 5.010; # needs perl version 5.10 regex extensions ... return $string; } # end sub replace_lt_6()
$string =~ s{ ... } {$replace}xmsg;