# my message should've started with this:

{ 
  $_ = q"I'm";
  * == \q;
  s/$/ Just Another Perl Hacker/;
}

s+(.).+$1+;
$_.=$= if $= !=~ s.\.\..\U$&.;
$= ==~ s=.+(o)+.=\U$1= or tr!Perilous / Treacherous Tracks\n!!d;
$= !=~ s/..$/q ... reverse $&/e and print;