>>400
結果として判定部分に $_ =~ を追加することで目的は達せられました。
ありがとうございます。

$_ に対しての正規表現は「$_ =~」の省略が可能という認識だったので
そう表記したんですが・・・