複数かよ
open
read
while($mes =~/foo(.*?)bar/sg){
print $1;
}


ざっと
keyword: ファイルテスト演算子