$basename =~ tr/[A-Za-z.]//cd;      # strip out unwanted crap