if (my ($mail) = $line =~ /mail: (.*)/) { print "mail=$mail\n"; }