# remove all the junk in our filename
$filename =~ s/^.*[\\\/]//;

##</code><code>##

$filename = pack 'H*', $filename;