#!/usr/bin/perl -n0777

$obfu = ' chr length x eval or';
$obfu = substr $obfu x 255, 0, 255;

($head, $tail) = /\n__(DATA|END)__\n/ ? ($`, "$&$'") : ($_, '');

push @code, "s ss chr length q q" . substr($obfu, 0, ord $_) . "q se"
  for reverse split //, "$head;\$_=''";

print
  join (' x ',
        @code,
        "eval or chr length q q $obfu q",
        sort {rand 2}
        @code),
  $tail;