in reply to perl look ahead regular expression that is optional?
This is not the place to get your homework done by others.