Please read Writeup Formatting Tips and update your question properly formatted, with <code> tags around the examples.

Then read perlretut, it teaches you enough about regexes to solve your problem.