in reply to Splitting data in a variable

Using a regex:

my $line = 'M6608BBBBQYMNM1000.data:0x4443018d D debug_mode';

my ($hex) = $line =~ /:(0x[a-f0-9]*)/;

print $hex;

[download]

In Section Seekers of Perl Wisdom