Create perl_regex_left_match_right.pl

perl inbuilt variables for regex matching and left and right of the match.