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