my $file = $filename;        # can't remember why I do this, always have
  $file =~ s!^.*(\\|\/)!!;     # something about cleaning stuff up

##</code><code>##

  my $file = $filename;
  $file =~ s![\\/]$!!;