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