if ( /filename\s*=\s*(\S+)/x ) 
    {
        $file = basename($1);
    } 
    if ( /go/ ) 
    {
        if ( exists $files{$file} ) 
        {
            push @PLACE, @batch; 
            delete $files{$file};
        } @batch = ();
    }

##</code><code>##

  switch ($_) 
  {
      case  qr /filename\s*=\s*(\S+)/   { $file = basename($1);}
      case  qr /go/ { if (exists $files{$file}) 
                      { push @PLACE, @batch; delete $files{$file}}}
  } @batch = ();

##</code><code>##

fileparse(): need a valid pathname at ./script line xxx