my @pats = ('fo*', 'ba.', 'w+3');

while (<>) {
	foreach $pat (@pats) {
		print if /$pat/;
	}
}