sub p () { use constant P=>' )'; use constant Q=>'* '; substr(P,1,1); } $, = p; print q; #Just Another Perl Hacktress ;^P