Re: Problem with ampersand and regex

[ikegami]

Always use use strict; use warnings;!

my $line = "mail: [e-mail]";

should be

my $line = 'mail: [e-mail]';

Then you can simply use

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