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