A slightly more full featured try with a few more strokes (outside the map), using davorgs origional post meathod of spliting.

{
  local $\="\n" => select STDOUT; # Or what ever FileHandle
  map { print scalar reverse( (split m!\s+//!)[0] ) } <DATA>
}
[download]

Enjoy!

--
Casey