my $rec = " 2425 S  25  \"   6  47!  86  18  21!  87  23  23!   -       -!   -       -!   96";

my $last = substr $rec, 1 + rindex($rec, " ");
print $last, $/;