http://www.perlmonks.org?node_id=317468


in reply to Pattern Matching

You could also try: