s/// 演算子に区切り文字を使わない

区切り文字を使わず、前後の PATTERN 部分をかっこ類で括るだけでよいみたいだ。

#!/usr/bin/perl
$str1 = $str2 = "aaa425bbb586ccc";

$str1 =~ s/[0-9]/_/g;
print "区切り文字を使う：$str1\n";

$str2 =~ s{[0-9]}{_}g;
print "区切り文字をわない：$str2\n";

区切り文字を使う：aaa___bbb___ccc
区切り文字をわない：aaa___bbb___ccc

参考：http://www.rfs.jp/sb/perl/02/09.html#s///%20%E6%BC%94%E7%AE%97%E5%AD%90