my $e = eval( $p );