in reply to Terse Code for Odd Numbers

print$_++while++$_<14;

In Section Seekers of Perl Wisdom