while(<file>) {
    (/(regex1)/i || /(regex2)/i || /(regex3)/i) && f($1);
}