You have a stray character in your regex, and your capture groups are not what you seem to think they are. Both of these are very basic and you should be able to find the solutions quickly once you find the problems. Try reading perlretut and perlre in the meantime for further inspiration.