#!/usr/bin/perl # goddamn you half japanese girls # do it to me every time # oh, the redhead said you shred the cello # and i'm jello, baby # 'cause you wont talk won't look won't think of me # i'm the epitome # a public enemy # why you wanna go and do me like that? # come down on the street and dance with me # ... # i wish i could get my head outta the sand # 'cause i think we'd make a good team # and you would keep my fingernails clean # but that's just a stupid dream that i won't realize # 'cause i can't even look in your eyes without shakin' # and i ain't fakin' # i'll bring home the turkey and you bring home the bacon #### GOD->can( DAMN ), 1/2 * Japanese::Girls ; for ( each %{time()} ) { do { 'it', @{ME} }; OH, and REDHEAD; } continue { to : say($you,$shred, @Chello) }; baby, and ME->isa( "jello") ; @ME, eval ' no You::talk; no You::look; no You::think; '; ME->isa('epitome'), a::public::enemy; seek(REASON,do { ME },'like that' ); do { not wait() }, come * down * on * street & dance => me .. I , Wish. I->can( my $head = do { GET : { out , of, sand } } ); eval { cos, I , Think. WE->can( MAKE->VERSION($of,$a,$good,$team) ) } and select my %fingernails; $fingernails{'you','keep'..'clean'}; if ( I->can( $not/do { Look-into-your-eyes; even, time(); 1; } ) ) { $@ = 'stupid dream that', not REALIZE and I, AINT, FAIKIN; } BUT: { I->can( bring_home_the_turkey ) and YOU->can( bring_home_the_bacon ); }