# 最短マッチの例 use strict; my $str = "[out[in]out]"; if ($str =~ /\[(.*)\]/) { print "通常: $1\n"; # out[in]out } if ($str =~ /\[(.*?)\]/) { print "最短: $1\n"; # out[in } このように、最短でマッチします。 # 括弧の数え方 ($1 ($2 ($3) ($4)) $5) 左側から順に数えます。 文字列の置換 正規表現でマッチした文字列を置き換える文法がPerlにはあります。 use strict; my $str = "this is a test."; $str =~ s/\.$/!/; # 行末の.を!に置き換えています print $str, "\n"; # this is a test! /PATTERN/ が s/BEFORE/A