Select Code to Download

my ($time, $kb_s) = $output =~ /^(\d+:\d+:\d+)\s+\(([\d.]+)\s+/m;
print "TIME: $time\nKB/S: $kb_s\n\n";