sample perl regex