Select Code to Download

#!/usr/bin/perl -w
use strict; my @n = qw(6 4 2 4);$,="\n";
...
(@o, chr(ord(substr($^X,$i,1))-  $n[$i])
);}$_=join(".",@o);s/(.*)/$1./;print $_,
"";