#!/afs/athena/contrib/perl/p

$truncate = 5;

while(<>){
	chop;
	$_=';'.$_.';';
	s/(=|\*|\/|\-|\+)/ $1 /g;
	s/(\W|=)([abcdefghijklmnopqrstuvwxyz]+)(\W)/$1\$$2$3/gi;
	$_=substr($_,1);
	chop;

	eval("\$a = $_");
	printf("a: %.$truncate"."f",$a);
	print("\n");
}