Select Code to Download

$LINE =~ /^([^:]*):[^:]:[^:]:[^:]:([^,:]*)/;
$up_to_first_colon = $1;
$fourth_colon_to_next_comma = $2;