foreach my $key ( keys %part_file ) {
    $key =~ s/[^A-Za-z0-9]/Junk alert!/g;
    print "Key-$key-\n";
}