Q. Can't you just stick an "x" at the end of the regexp and get it to work with short lines?

A. yes.

--
$you = new YOU;
honk() if $you->love(perl)