$attach1 =~ s/\?.*$//;

##</code><code>##

  $paramstr = '\?'.$ENV{QUERY_STRING};
  $attach1 =~ s/$paramstr//;