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

##</code><code>##

use 5.018;
use Data::Dumper;

my $mFile='DATA1127720.txt';  # OP's sample data

open(my $tablec, "<", "$mFile") or die "Can't open the datafile: $!";
my @tablec = <$tablec>;

for (@tablec) {
    my @XPinfo = split /\s+/, $_;
    chomp @XPinfo;
    my $delayTime = $XPinfo[8];
    if ( $delayTime < -10 ) {
        say "\t OUT OF BOUNDS!!!  \$delayTime: $delayTime";
    }else{
        say $delayTime;  # revision to save desired lines left as an exercise
    }
}

=head EXECUTION

D:\>perl 1127720FIXED.pl
         OUT OF BOUNDS!!!  $delayTime: -42.2436
2.5545
2.6160
2.6006


=cut