Naïve JAPH

  my($x)=chr((63+1)/2);use         utf8
                                    ;$x
  ;my@s=map   {$_=~s/    ~/ chr(5   *2)
  /ex    ;$_ ;;}   map   &np,  qw{  Jus
  t!A    not her♥Perl♥   Hac        ker
  ~}or$x++;  sub         np{        my(
  $w)          =$_;$w    =~s        {[!
  #$z 
  !$x      \x{2665}]}{$x}gex;$w}print@s