Select Code to Download

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

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