while(<DATA>) {
   my @pieces = split;
   my $extracted = join ' ', @pieces[ 2 .. @pieces - 3 ];
   print $extracted, "\n";
}

__DATA__
WX 200 A string of interest 86.34 0906
WTTS 320 Peer here my peer 17.34 1001
XGR 400 Please take me with you 19.87 1201