in reply to Can someone help me to explain the code below
You want to google for "perl regex list context".
See: http://perldoc.perl.org/perlretut.html#Extracting-matches