Select Code to Download

$str =~ m[(?P<duration>$RE{num}{real})(?P<client>$RE{net}{IPv4})];

print "Client:$+{client} duration:$+{duration}";