This is a trivial question. I suggest you learn the language properly first on your own: http://learn.perl.org/

Trivial? You use two modern regex features not mentioned in the faq or introductory text, and certainly not mentioned on learn.perl.org