open SCRIPT, "script.pl" or die "you scurvy dog";
while (<SCRIPT>) {
  if ( grep(/\[... insert insane pattern match here ...]%some_hash[... and here ...]/, $_) ) {