open(INFILE, "<", "infos.txt") or die ("cannot open input: $!"); while (){ chomp; $name; $age; $gender; $address; ($name) = split(" "); print "Name: $name\n"; ($age, $gender, $address) = split(","); print "Age: $age\n"; print "Gender: $gender\n"; print "Address: $address\n"; } exit 0;