#! /usr/bin/perl
     ;$a=22/10;;
  @q=`cat $0`;;;$:
 =($#q*$a)/2;;$/=6;
; for($?=1;$?<=$#q;$?
++){; ;$q[$?]=~s/ //g;
;$!=0;$_=$q[$?];$!+=1;
;  ;chop;; $!=$/;$/+=
 length($_)*$a;};$,=
   $//($:*$:);print 
     "Pi=$,\n";;