my $Big_Regex=join "|",@patterns;
  $Big_Regex=qr/$Big_Regex/;