Select Code to Download

 
$_=do{q}HHJHPAPAJJAJPJJHAAJJAAJHJAHAJPHJHAHPPJ 
HAAHHJJJHJPPHPHJAJPHAAPHAJJHHJHAHA}};\s+\s++s+ 
y?JAPH?0-3?;s;(.)(.)(.);(map{ord>0130?uc:(),uc 
}q{KnKttiIMRsROhOppllrr y ssLfL cWEdEaauujj}=~ 
/./g)[$1*16+$2*4+$3];eg;s;\w+;\L\u$&;g;{print}

 
$_=do{q}HHJHPAPAJJAJPJJHAAJJAAJHJAHAJPHJHAHPPJ 
HAAHHJJJHJPPHPHJAJPHAAPHAJJHHJHAHA}}; 
...
s;\w+;\L\u$&;g; 
 
{print}

 
   1  $_=do{q}HHJHPAPAJJAJPJJHAAJJAAJHJAHAJPHJHAHPPJHAAHHJJJHJPPHPHJAJ
+PHAAPHAJJH
HJHAHA}}; 
...
   4  s;\w+;\L\u$&;g; 
 
   5  {print}

 
 
$ perl 
...
  (Might be a runaway multi-line ;; string starting on line 4) 
        (Missing semicolon on previous line?)

 
   1  $_=do{q}HHJHPAPAJJAJPJJHAAJJAAJHJAHAJPHJHAHPPJHAAHHJJJHJPPHPHJAJ
+PHAAPHAJJH
 
...
   4  s;\w+;\L\u$&;g; 
 
   5  {print}

 
   1  $_=do{q}HHJHPAPAJJAJPJJHAAJJAAJHJAHAJPHJHAHPPJHAAHHJJJHJPPHPHJAJ
+PHAAPHAJJH
 
...
          q{KnKttiIMRsROhOppllrr y ssLfL cWEdEaauujj}=~/./g) 
        [$f*16+$s*4+$t] 
      }

 
   $_=do{q}HHJHPAPAJJAJPJJHAAJJAAJHJAHAJPHJHAHPPJHAAHHJJJHJPPHPHJAJPHA
+APHAJJH 
HJHAHA}};

 
use strict; 
use warnings; 
...
my @family = qw)Mom Dad Brother Sister etc); 
foreach ( @friends ) { print $_, " is a friend\n" } 
foreach ( @family ) { print $_, " is family\n" }

 
$ perl -e '$_ = do{q(Hello World)}; print $_,"\n"' 
Hello World

 
\s+\s++s+y?JAPH?0-3?;

 
$ perl 
$_='HHJHPAPAJJAJPJJHAAJJAAJHJAHAJPHJHAHPPJHAAHHJJJHJPPHPHJAJPHAAPHAJJH
+ 
...
print; 
__END__ 
3303212100102003110011030131023031322031133000302232301023112310033031
+31

 
$ perl 
$_='HHJHPAPAJJAJPJJHAAJJAAJHJAHAJPHJHAHPPJHAAHHJJJHJPPHPHJAJPHAAPHAJJH
+ 
...
__END__ 
330321210010200311001103013102303132203113300030223230102311231003 
303131

 
$ perl 
$_='HHJHPAPAJJAJPJJHAAJJAAJHJAHAJPHJHAHPPJHAAHHJJJHJPPHPHJAJPHAAPHAJJH
+ 
...
print; 
__END__ 
HHJHPAPAJJAJPJJHAAJJAAJHJAHAJPHJHAHPPJHAAHHJJJHJPPHPHJAJPHAAPHAJJHHJHA
+HA

 
$ perl 
$_='HHJHPAPAJJAJPJJHAAJJAAJHJAHAJPHJHAHPPJHAAHHJJJHJPPHPHJAJPHAAPHAJJH
+ 
...
print; 
__END__ 
HHJHPAPAJJAJPJJHAAJJAAJHJAHAJPHJHAHPPJHAAHHJJJHJPPHPHJAJPHAAPHAJJHHJHA
+HA

 
s/\s+//s; 
vs 
\s+\s++s+

 
$ perl 
$_='hello 
...
__END__ 
syntax error at - line 3, near "+;" 
Execution of - aborted due to compilation errors.

 
$ perl 
$_='hello 
...
print $_; 
__END__ 
helloworld

 
s/\s//s and tr/JAPH/0123/;

 
if ( s/\s//s ) {  # if we remove a space char, where "space" includes 
+\n... 
  tr/JAPH/0123/;  # ...then do this tr/ansl/ation/ 
}

 
   3  s;(.)(.)(.);tadman($1,$2,$3);eg; 
 
   4  s;\w+;\L\u$&;g;

 
$ perl -e '$_ = "hello world"; s/(hello)/uc $1/g; print $_,"\n"' 
uc hello world 
 
$ perl -e '$_ = "hello world"; s/(hello)/uc $1/ge; print' 
HELLO world

 
while ( /(.)(.)(.)/g ) { 
  tadman ( $1, $2, $3 ); 
}

 
   4  s;\w+;\L\u$&;g;

 
$ perl -e '$_ = "hello world"; s;\w+;\L\u$&;gx; print $_,"\n"' 
Hello World 
$ perl -e '$_ = "HELLO WORLD"; s;\w+;\L\u$&;gx; print $_,"\n"' 
Hello World

 
$ perl -e '$_ = "hello world"; $_ = ucfirst($_); print $_,"\n"' 
Hello world  
$ perl -e '$_ = "HELLO WORLD"; s;\w+;\L\u$&;gx; print $_,"\n"' 
HELLO WORLD

 
{print}

 
    sub tadman 
    { 
...
        q{KnKttiIMRsROhOppllrr y ssLfL cWEdEaauujj}=~/./g) 
      [$first*16+$second*4+$third] 
    }

 
#!/usr/bin/perl 
use strict; 
...
my $occupation = $fields[2]; 
print "$occupation man\n"; 
exit;

 
#!/usr/bin/perl 
use strict; 
...
my $occupation = ( split /\|/, $line )[2]; 
print "$occupation man\n"; 
exit;

 
 2    ( map { ord>0130?uc:(),uc } 
        q{KnKttiIMRsROhOppllrr y ssLfL cWEdEaauujj}=~/./g) 
      [$first*16+$second*4+$third]

 
    (        # open paren to force list context 
      map    # will be followed by BLOCK and LIST 
...
 
             # Finally, close paren and index into the list 
    )[$first*16+$second*4+$third]

 sub tadman 
{ 
  my ($first, $second, $third) = @_; 
...
  my @key = split /|/, 'KnKttiIMRsROhOppllrr y ssLfL cWEdEaauujj'; 
  ( map { ord > 0130 ? uc : (), uc } @key )[ $index ]; 
}

 
# 
# { ord > 0130 ? uc : (), uc } 
...
} else {                # otherwise 
  (), $_ ;              #   return undef *and* $_ 
}

 
#!/usr/bin/perl 
 
...
  my $value = $expanded_key[$index]; 
  return $value; 
}