#!perl -pl $_*=$_/3*$_+$_++/6