use strict;
use warnings;

print cleanfilename('abcdefghijklmnopqrstuvwxyz.xml');

sub cleanfilename {
    my ($ans) = @_;

    $ans =~ y/\/\\[]{}()?*#$^&@*;''""``<>%|//d;
    $ans =~ y/[[:space:][:cntrl:]]//d;
    
    return $ans;
}

##</code><code>##

bdfghijkmoquvwxyz.xm