my @regexes = (
    qr/regex1/,
    qr/regex2/,
    qr/regex3/,
);

while ( my $line = <> ) {
    for my $regex ( @regexes ) {
        if ( $line =~ m/$regex/ ) {
            print "Foo\n";
        }
    }
}