my $line = "mail: asdf@123.com";

##</code><code>##

my $line = 'mail: asdf@123.com';

##</code><code>##

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