my $dataline = "XP.sta1    -41.5166    0.0513    0.6842    0.1794    0  CPHI.BHZ   300.2458   -42.2436";

my @arr = split /\s+/, $dataline;

say "$arr[0], \t $arr[8]";

=head  OUTPUT:

XP.sta1,         -42.2436

=cut