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