#!perl -lp $_*=$_++*($_-.5)/3