http://www.perlmonks.org?node_id=857273


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

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);

print+qq(\L@{[ref\&@]}@{['@'x7^'!#2/"!4']});