use constant P => ' )';
print q; #Just Another Perl Hacktress ;^P