Please see Tutorials re regular expressions (or any standard Perl text).

... and re "...please give me perl code..."

Please also read (more carefully!) the instructions about formatting your posts at the text-entry (and edit!) box immediately beneath the text of your node when the node is the first one rendered. (click on the linked "Re..." at the top of the poorly formatted node).

Please search for "homework" (inter alia) and read On asking for help & How do I post a question effectively? before asking PM to "give" you code. We'll be happy to help you learn, but donating code for your business is NOT a high priority here... and doing your homework provides you with very little help in learning Perl.

Lastly: your questions suggest you may be trying to adapt a script you did not write; that you have very little, if any, Perl background. That's OK. That's what set many of us to the work of learning Perl. So, do so....

...but here's a freebie: recognize that generally, when Perl advances from one version to another, or when you try to move a script from one machine (OS) to another, you may to make some modifications to working code. And modifying a working script (which uses an earlier Perl version or runs correctly on a different machine) with suggestions about how to deal with a problem on another machine or with a different Perl version is UNwise and unlikely to be useful.