my  @a = $filename =~ m/ (\D+)? (\d+)? /xg;