Language Basics Perl

while(){
     ($name,$phone,$address,$bd,$sal)=split(":");
     print "$name\t $phone\n" ;
}