Always use use strict; use warnings;!

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

should be

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

Then you can simply use

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