> 先頭に@がつく行を全部マッチさせる正規表現ｷﾎﾞﾘ(;´Д`)

if (substr($line,0,1) eq '@') {
    1;
} else {
    0;
}

参考：2001/10/31(水)17時21分39秒