my $nspace = $filename;
$nspace =~ s/[^a-zA-Z]/_/g;