use Inline AWK;
#         ^
#         |
#       Space.
 
awk(); # operates on @ARGV by default
 
__END__
__AWK__
...
[download]

a2p that implements the functionality should still be present in your version of Perl, but note that it was removed from core in 5.22 (but see App::a2p).

($q=q:Sq=~/;[c](.)(.)/;chr(-||-|5+lengthSq)`"S|oS2"`map{chr |+ord
}map{substrSq`S_+|`|}3E|-|`7**2-3:)=~y+S|`+$1,++print+eval$q,q,a,
[download]