Comments on Regex Groupings in Perl