Select Code to Download

$filename =~ m/^.*(\\|\/)([^\\\/]*)$/;
my $newfilename = $2 || die "Filename $filename failed to match!\n";