Hi Monks

I would like to know how to split multiple patterns or expressions?

For example I have an input file from infos.txt file and I want to split the data there per line

The infos.txt file have the following input:

"Mawts 25,female,melbourne

Awts 24,male,sydney"

I want to split the <Tab> or space between the name and the age, and also split the "commas" (,)

Here's my code but I'm getting different result:

 open(INFILE, "<", "infos.txt") or die ("cannot open input: $!");
while (<INFILE>){
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;
[download]

The output produced like this:

Name: Mawts 25,female,melbourne

Age: Mawts 25

Gender: female

Address: melbourne

Name: Awts 24,male,sydney

Age: Awts 24

Gender: male

Address: sydney

On the result only the "Name" and "Age" has the wrong output but the "Gender" and "Address" is correct. I know there's something wrong with the code but can't figure it out, I tried combining the splitting patterns but gave me blank results only the commas was seen in the result. Hope you could help guys thanks very much..