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