my $str    = "blah blah\nlast message 4.453 ms after\n";
my ($numb) = $str =~ /([0-9.]+)/;
print $numb, "\n";