view release on metacpan or  search on metacpan

Bushisms.pm  view on Meta::CPAN

$arab = " \t"x8;
sub invade { local $_ = unpack "b*", pop; tr/01/ \t/; s/(.{9})/$1\n/g; $arab.$_ }
sub leave  { local $_ = pop; s/^$arab|[^ \t]//g; tr/ \t/01/; pack "b*", $_ }
sub oil    { $_[0] =~ /\S/ }
sub drill  { $_[0] =~ /^$arab/ }

open 0 or print "Can't open '$0'\n" and exit;
$iraq = join "", <0>;
$iraq =~ s/.*^\s*use\s+Acme::Bushisms\s*;\n\n(?:.*?George.*?\n)?//sm;
local $SIG{__WARN__} = \&oil;
do {eval leave $iraq; exit} unless oil $iraq && not drill $iraq;

use LWP::Simple qw($ua get);
$ua ->timeout(10);
$lies = get("http://slate.msn.com/id/76886/");
if (not defined $lies) {
$dubya =<<EOF; 
"I know the human being and fish can coexist peacefully."
--George W Bush, Saginaw, Mich., Sept. 29, 2000
EOF
}