Changed reference to capture group \1 to $1 in accordance to "use warnings"