Select Code to Download

$newname = 'foo-64-bar';
$oldpat = '-([0-9]+0-';
$newpat = q/'_'.$1.'_'/;
$newname =~ s/$oldpat/$newpat/ee;
print "variable patterns: $oldname becomes $newname\n";