in reply to What is this line doing in the perl script?
You haven't told us what part of the line you have problems understanding.
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);