my $request=$ENV{'QUERY_STRING'};
  $request=~/([-\w_]+\.($ext))/g;
  my $file=$1;

##</code><code>##

  my ($file) = $ENV{'QUERY_STRING'} =~ /([-\w_]+\.($ext))/g;

##</code><code>##

  foreach(@code){
    $_=~s/</&lt;/g;
    $_=~s/>/&gt;/g;
  }

##</code><code>##

  foreach(@code){
    s/</&lt;/g;
    s/>/&gt;/g;
  }