2010-04-22 文字列の一部の数値をインクリメント Perl 正規表現 fushihara++ my $name = 'ホゲホゲLv1'; $name =~ s/Lv(\d+)/Lv@{[$1+1]}/; warn $name; # ホゲホゲLv2