Re: What is this line doing in the perl script?

[Corion]

You haven't told us what part of the line you have problems understanding.

You can learn what the line is doing from perlre about the /g flag, and from perlsyn about what the assignment does.

Maybe it helps you to look at this example:

use strict;
use Data::Dumper;
my @list = ("abcdef" = /(.)./g);
print Dumper \@list;
(my ($first)) = @list;
print "$first\n";

# in one step
(my $first) = ("abcdef" = /(.)./g);

[codeacrobat]

You are missing the tilde in the match.
Should've been:

use strict;
use Data::Dumper;
my @list = ("abcdef" =~ /(.)./g);
print Dumper \@list;
(my ($first)) = @list;
print "$first\n";

# in one step
(my $first) = ("abcdef" =~ /(.)./g);