#!perl -p $_=$_<3?$_:5*$_-12