Uh, that's more commonly spelled m-a-p:

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

-- Randal L. Schwartz, Perl hacker