An obfuscation that I hope even the BEGINners can understand in the END. 

#!/usr/bin/perl -w -0777
use strict;
END{BEGIN{$"="\r";$|=ord("Q");}}
$_="Would I lie to you?"; # rekcaH
# I mean do you really know me? # lreP
BEGIN{END{print $".join' ',@!;}print "Hog";}
$_="Do not believe everything you read...";
# or see on the internet for that matter!
END{$.-=$!;}BEGIN{print " ";} # rehtonA
print $"." "x$.; # __DATA__ # tsuJ
END{@!=grep{$_=chr($_)}@!;BEGIN{print "wash!";}}
$_="Blah blah blah blah blah blah blah blah";
# What you hear when your spouse talks, right?
END{@!=grep{s#(\d)(\d)#$2$1#}@!;}BEGIN{$.=8;}
$!=2; # @_ = <DATA>; # No such file or directory?!??
END{@!=reverse@!;}BEGIN{$!=42;} # Illegal byte sequence???
$_="There are those who would try to deceive you...";
# yeah, not all people are trustworthy! # (I am)
BEGIN{END{@!=qw(27 08 56 47);}}# $_=join'',@_;eval;

[download]

Replies are listed 'Best First'.
BEGINner Obfu Spoiler
by Mr. Muskrat (Canon) on Jan 23, 2003 at 22:59 UTC

    -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]

[reply]
[d/l]

Back to Obfuscated Code