Comments on Building a Regular Expression in Perl