if( $line =~ /^mail:\s+([\S]+)$/ ) {
    my $mail = $1;
    print "mail=$mail\n";
}