add perl example on RegEx