$filename =~ tr{:\\}{/};       # convert mac and windows directory seperators to unix style
$filename =~ s{.*/}{}g;        # strip everything before the last seperator
$filename =~ s{[^\w\-\.]}{}go; # remove funny characters