Select Code to Download

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

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

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