※正式なメールアドレスの正規表現こちらを参照 http://www.din.or.jp/~ohzaki/perl.htm#Mailメールアドレス置換プログラム # ex70.pl undef $/; # テキストファイルを一気に読み込みます $text = <>; # 引数のファイルを読み込みます $text =~ s{ \b # アド…