INPUTLINE: foreach my $line (<<>>) {
    chomp $line;
    foreach my $pattern (@patterns) {
        $line =~ $pattern and do {
            say "$line matched $pattern!";
            next INPUTLINE;
        }
    }
}