Select Code to Download

#!/usr/bin/perl -wall -00n
use strict;

...
    formline(('@'.('|'x80)."\n")x@_,@_);
    print $^A
}

#!/usr/bin/perl -w -00nal
use strict;

...
    formline'@'.('|'x80)."\n",$&and@F=length$&while/.{1,@F}.*? /g;
    print$^A
}