...
my $list_regex = join '|', @patterns;
my $regex_string = qr/$list_regex/is;
...
if (/($regex_string)/) {print "\n$arg1\n$1\n";}