eval {
　die("error message");
}
if ($@) {
　print STDERR, $@;
　exit 1;
}
という処理を書いているんですが、エラーメッセージのうしろに
at /usr/local/tmp/hoge.pm line 2
のようなのが付いてきます。
つまり $@ にファイル名と行番号が付いてくるわけですが、これを取り除くいい方法はありますか。
やはり正規表現でちまちま削除しなきゃいけないでしょうか。