my $filename = "
../../asdf";
$filename =~ s/^.*[\\\/:]//;
print $filename;

##</code><code>##

my $_filename = $p->param('filename') || '';
my ($filename) = $_filename =~ /(\w+)$/; # only use word characters from the end