foreach $pattern (@patterns)) {
		if ($input =~ /$pattern/) {
			print $pattern;
		}
	}