in reply to BEGINner Obfu
-0777 is not used at all. Strip out all comments. Condense BEGIN blocks to one. Condense END blocks to one, reversing order. Strip lines that do not affect the outcome. #!/usr/bin/perl -w use strict; BEGIN { $" = "\r"; print "Hog wash!"; $. = 8; } print $" . " " x $.; END { @! = qw(27 08 56 47); @! = reverse @!; @! = grep { s/(\d)(\d)/$2$1/ } @!; @! = grep { $_ = chr($_) } @!; print $" . join ' ', @!; } [download]
#!/usr/bin/perl -w use strict; BEGIN { $" = "\r"; print "Hog wash!"; $. = 8; } print $" . " " x $.; END { @! = qw(27 08 56 47); @! = reverse @!; @! = grep { s/(\d)(\d)/$2$1/ } @!; @! = grep { $_ = chr($_) } @!; print $" . join ' ', @!; } [download]