my $regexp = @ARGV[1];
 ...
 next if ($global =~ /$regexp/);
 ...

##</code><code>##

 my $regexp = @ARGV[1];
 ...
 next if ($global =~ /$regexp/o);
 ...

##</code><code>##

 my $regexp = qr/@ARGV[1]/;
 ...
 next if ($global =~ $regexp);
 ...