sub p () {
    use constant P=>' )';
    use constant Q=>'* ';
    substr(P,1,1);
}

sub q () {
    eval join '', split /./, s//rxlgcdjqfvbpsohduwyvcmbjdxopd/ & map {
      tr/[a..z]/[z..a]/ . P | Q
  } split //;
}

$, = p;
print q; #Just Another Perl Hacktress ;^P