while ( <DATA> ) {
   my @tmp = split ' ', $_, 4;
   my @start = splice @tmp, 0, 3;
   @tmp = split ' ', (reverse $tmp[0]), 5;
   $_ = reverse for @tmp;
   my @parsed = ( @start, reverse @tmp );
   print "<$_>" for @parsed;
   print "\n";
}