Select Code to Download

while(<>){
my ($id, $user_name, $p_id, $password) = split ':';
#do stuff to the stuff in $id and $p_id
}