@b = map { m#^(.*)\.\w+$#? $1 : $_ } @a;