Help for this page
my $line = "mail: asdf@123.com";
my $line = 'mail: asdf@123.com';
if (my ($mail) = $line =~ /mail: (.*)/) { print "mail=$mail\n"; }