Help for this page
my $a = \&apackage::process1; #process1 does not exist at this moment
my $b = \&apackage2::process2; my $c = \&apackage2::process2; my $d = \&apackage2::process3;
@_="the journeyman larry disciple keeps learning\n"=~/(.)/gs, print(map$_[$_-77],unpack(q=c*=,q@QSdM[]uRMNV^[ni_\[N]eki^y@))