Adding perl_regex.pl file