2011-04-20 囲まれた文字列の抜き出し perl 毎回忘れて過去のソースコード漁るのが大変となり書きだすaとoで挟まれた奴を取り出すだけ $a = "aiueo"; $a =~ s/a(.*?)o/$1/; print $1;