foreach my $line (@array) {
  if ($line =~ /mail: /) {
      my $mail = substr($line, $+[$#+] );
      print "mail=$mail\n";
  }
}