Extracting all four numbers.

use strict;
use warnings;
my $string = "66.411716: ABCDE:M WALL 0x0164764a, RX 0x03bb9d42, TS 5"
+;
my @numbers = $string =~ /(0x[0-9a-f]+|\d+\.?\d*)/g;
print "@numbers\n";
[download]