in reply to Perl Regular Exp

In addition: