while(<xxx>){ push(@yyy); } ね。
その時散々煽ったおれも全部上に書き換えたよ。(笑

「^」使うとまぎらわしいね。「 !~ メールアドレスの書式」 にしてみろよ。

てきとーで書くけど $email !~ /\w\.-_@\w-_\.\w/ とか。