>perl -w tmp.pl
<stuff>
stuff XXYY
test