Was sollen diese Regex jetzt eigentlich bewirken?
Die weichen wieder stark von dem ab, was pq Dir schon gezeigt hat. Warum? Ist das jetzt Code für eine andere Aufgabe?

Wenn Du Perl programmieren willst oder sollst, dann solltest Du Dir dringend die Dokumentationen anschauen und auch mal ein Tutorial lesen.

http://perl-tutorial.org/ <- Empfehlung: Modern Perl

Doku zu Regex:

http://perldoc.perl.org/perldoc/perlretut.html
http://perldoc.perl.org/perldoc/perlrequick.html
http://perldoc.perl.org/perldoc/perlre.html