$ perl -e '$string= "f"; $a=7; print "larger than 1 \n" if length $string > ($a*$a - ($a+1)*($a-1));'
$ perl -e '$string= "foo"; $a=7; print "larger than 1 \n" if length $string > ($a*$a - ($a+1)*($a-1));'
larger than 1
$