Excellent! I have one request -- can you explain the magic you're doing with AUTOLOAD, and what you mean by "vstrings"? I haven't used AUTOLOAD much, (I actually *did* think about using it for this obfuscation) so I'd appreciate knowing more!
Updated: Here's what I have so far:
#!/usr/bin/perl -w
+
use warnings;
+
my $text;
my @a = (
sub {$text = $_[0]}, # Assign text to $1
sub {$text = $_[0] . $text}, # Prepend text with $1
sub {$text .= "\n"; shift}, # Appends "\n" to text
sub {$text =~ s/$_[1]//; print $text} # Remove $1 from text, pri
+nt text
);
+
sub AUTOLOAD {
*{$AUTOLOAD} = shift(@a);
goto &$AUTOLOAD
}
+
foreach my $subname (v74, "put", "the", "RAPH") {
*{$subname.'::AUTOLOAD'} = \&{'AUTOLOAD'}
}
+
I put the J in RAPH and remove the R
|
