if ( $line =~ /\A[0-9]/ ) {
  $phone = $line; # It's a phone number
} elsif ( $line =~ /.*@.*/ ) {
  $email = $line; # It's an email address
  print "\"$name\",\"$phone\",\"$email\""; #Assumption - input data is ordered name, phone, email.
} elsif ( $line =~ /[\A[A-Z][a-zA-Z]+,/ ) {
  $name = $line; # It's a name
} else {
  print "WARNING: I could not understand input line: $line\n";
}