gitpan

Perl

fuckassholebastardbestialitybitchcockcocksuckercumshotcuntdamndickdildoejaculatefaggotfuckerfuckinggangbangmotherfuckerorgasmpisspussyslut

has stop_word_list => (
    is          => 'rw',
    default     => sub { 'asshole,assholes,bastard,beastial,beastiality,beastility,bestial,bestiality,bitch,bitcher,bitchers,bitches,bitchin,bitching,blowjob,blowjobs,bullshit,clit,cock,cocks,cocksuck,cocksucked,cocksucker,cocksucking,cocksucks,cum,cummer,cumming,cums,cumshot,cunillingus,cunnilingus,cunt,cuntlick,cuntlicker,cuntlicking,cunts,cyberfuc,cyberfuck,cyberfucked,cyberfucker,cyberfuckers,cyberfucking,damn,dildo,dildos,dick,dink,dinks,ejaculate,ejaculated,ejaculates,ejaculating,ejaculatings,ejaculation,fag,fagging,faggot,faggs,fagot,fagots,fags,fart,farted,farting,fartings,farts,farty,felatio,fellatio,fingerfuck,fingerfucked,fingerfucker,fingerfuckers,fingerfucking,fingerfucks,fistfuck,fistfucked,fistfucker,fistfuckers,fistfucking,fistfuckings,fistfucks,fuck,fucked,fucker,fuckers,fuckin,fucking,fuckings,fuckme,fucks,fuk,fuks,gangbang,gangbanged,gangbangs,gaysex,goddamn,hardcoresex,horniest,horny,hotsex,jism,jiz,jizm,kock,kondum,kondums,kum,kumer,kummer,kumming,kums,kunilingus,lust,lusting,mothafuck,mothafucka,mothafuckas,mothafuckaz,mothafucked,mothafucker,mothafuckers,mothafuckin,mothafucking,mothafuckings,mothafucks,motherfuck,motherfucked,motherfucker,motherfuckers,motherfuckin,motherfucking,motherfuckings,motherfucks,niger,nigger,niggers,orgasim,orgasims,orgasm,orgasms,phonesex,phuk,phuked,phuking,phukked,phukking,phuks,phuq,pis,piss,pisser,pissed,pisser,pissers,pises,pisses,pisin,pissin,pising,pissing,pisof,pissoff,porn,porno,pornography,pornos,prick,pricks,pussies,pusies,pussy,pusy,pussys,pusys,slut,sluts,smut,spunk' },
);

=item stop_links

Perl

anal

ASIANS REDHEADS LINGERIE HARDCORE GROUPS OUTSIDE 
		MASTURBATE TOYS BLOWJOBS CUMSHOTS CLOSEUPS INTERRACIAL
		ANAL ASSES BIG_GIRLS SMALL_TITS BIG_TITS NIPPLES

Perl

anal

LINGERIE => "lingerie",			HARDCORE => "hardcore",
	GROUPS => "groups",				OUTSIDE => "outside_sex",
	MASTURBATE => "masturbate",		TOYS => "toys",
	BLOWJOBS => "blowjobs",			CUMSHOTS => "cumshots", 
	CLOSEUPS => "closeups",			INTERRACIAL => "interracial",
	ANAL => "anal",					ASSES => "asses", 
	BIG_GIRLS => "big_girls",		SMALL_TITS => "small_tits",

Perl

pussyanal

ASIANS REDHEADS LINGERIE HARDCORE GROUPS OUTSIDE 
		MASTURBATE TOYS BLOWJOBS CUMSHOTS CLOSEUPS INTERRACIAL
		ANAL ASSES BIG_GIRLS SMALL_TITS BIG_TITS NIPPLES
		OLDER_BABES LESBIANS PUSSY SHAVED HAIRY_PUSSY PORNSTARS
		CELEBRITIES WORKOUT VINTAGE UNIFORMS PANTIES PANTYHOSE
		PIERCINGS FOOT_FETISH PREGNANT FISTING PEE VOYEURISM
		UPSKIRTS SPANKING BONDAGE BIZARRE NUDISTS ANIME

Perl

pussy

BIG_GIRLS => "big_girls",		SMALL_TITS => "small_tits",
	BIG_TITS => "big_tits",			NIPPLES => "nipples", 
	OLDER_BABES => "older_babes",	LESBIANS => "lesbians",
	PUSSY => "pussy",				SHAVED => "shaved",
	HAIRY_PUSSY => "hairy_pussy",	PORNSTARS => "pornstars", 
	CELEBRITIES => "celebrities",	WORKOUT => "naked_workout",
	VINTAGE => "vintage",			UNIFORMS => "uniforms",

Perl

damncumshotcuntwhore

crack crackpipe crackwhore crack-whore crap crapola crapper crappy
crash creamy crime crimes criminal criminals crotch crotchjockey
crotchmonkey crotchrot cum cumbubble cumfest cumjockey cumm cummer
cumming cumquat cumqueen cumshot cunilingus cunillingus cunn
cunnilingus cunntt cunt cunteyed cuntfuck cuntfucker cuntlick
cuntlicker cuntlicking cuntsucker cybersex cyberslimer dago dahmer
dammit damn damnation damnit darkie darky datnigga dead deapthroat

Perl

whorecocainecockcocksucker

clitoris clogwog cocaine cock cockblock cockblocker cockcowboy
cockfight cockhead cockknob cocklicker cocklover cocknob cockqueen
cockrider cocksman cocksmith cocksmoker cocksucer cocksuck cocksucked
cocksucker cocksucking cocktail cocktease cocky cohee coitus color
colored coloured commie communist condom conservative conspiracy
coolie cooly coon coondog copulate cornhole corruption cra5h crabs
crack crackpipe crackwhore crack-whore crap crapola crapper crappy

Perl

dickheaddamndeepthroatdickdildo

cuntlicker cuntlicking cuntsucker cybersex cyberslimer dago dahmer
dammit damn damnation damnit darkie darky datnigga dead deapthroat
death deepthroat defecate dego demon deposit desire destroy deth devil
devilworshipper dick dickbrain dickforbrains dickhead dickless
dicklick dicklicker dickman dickwad dickweed diddle die died dies dike
dildo dingleberry dink dipshit dipstick dirty disease diseases
disturbed dive dix dixiedike dixiedyke doggiestyle doggystyle dong

Perl

fuckinggangbang

fuckfriend fuckhead fuckher fuckin fuckina fucking fuckingbitch
fuckinnuts fuckinright fuckit fuckknob fuckme fuckmehard fuckmonkey
fuckoff fuckpig fucks fucktard fuckwhore fuckyou fudgepacker fugly fuk
fuks funeral funfuck fungus fuuck gangbang gangbanged gangbanger
gangsta gatorbait gay gaymuthafuckinwhore gaysex geez geezer geni
genital german getiton gin ginzo gipp girls givehead glazeddonut gob
god godammit goddamit goddammit goddamn goddamned goddamnes goddamnit

Perl

fuckbuttplugfucker

bulldike bulldyke bullshit bumblefuck bumfuck bunga bunghole buried
burn butchbabes butchdike butchdyke butt buttbang butt-bang buttface
buttfuck butt-fuck buttfucker butt-fucker buttfuckers butt-fuckers
butthead buttman buttmunch buttmuncher buttpirate buttplug buttstain
byatch cacker cameljockey cameltoe canadian cancer carpetmuncher
carruth catholic catholics cemetery chav cherrypopper chickslick
children's chin chinaman chinamen chinese chink chinky choad chode

Perl

whorewetback

unfuckable upskirt uptheass upthebutt urinary urinate urine usama
uterus vagina vaginal vatican vibr vibrater vibrator vietcong violence
virgin virginbreaker vomit vulva wab wank wanker wanking waysted
weapon weenie weewee welcher welfare wetb wetback wetspot whacker
whash whigger whiskey whiskeydick whiskydick whit whitenigger whites
whitetrash whitey whiz whop whore whorefucker whorehouse wigger willie
williewanker willy wn wog women's wop wtf wuss wuzzie xtc xxx yankee

Perl

faggotfatass

enema enemy erect erection ero escort ethiopian ethnic european evl
excrement execute executed execution executioner explosion facefucker
faeces fag fagging faggot fagot failed failure fairies fairy faith
fannyfucker fart farted farting farty fastfuck fat fatah fatass
fatfuck fatfucker fatso fckcum fear feces felatio felch felcher
felching fellatio feltch feltcher feltching fetish fight filipina
filipino fingerfood fingerfuck fingerfucked fingerfucker fingerfuckers

Perl

retardpussyqueefqueerretarded

propaganda pros prostitute protestant pu55i pu55y pube pubic pubiclice
pud pudboy pudd puddboy puke puntang purinapricness puss pussie
pussies pussy pussycat pussyeater pussyfucker pussylicker pussylips
pussylover pussypounder pusy quashie queef queer quickie quim ra8s
rabbi racial racist radical radicals raghead randy rape raped raper
rapist rearend rearentry rectum redlight redneck reefer reestie
refugee reject remains rentafuck republican rere retard retarded

Perl

motherfucker

minority mockey mockie mocky mofo moky moles molest molestation
molester molestor moneyshot mooncricket mormon moron moslem mosshead
mothafuck mothafucka mothafuckaz mothafucked mothafucker mothafuckin
mothafucking mothafuckings motherfuck motherfucked motherfucker
motherfuckin motherfucking motherfuckings motherlovebone muff muffdive
muffdiver muffindiver mufflikcer mulatto muncher munt murder murderer
muslim naked narcotic nasty nastybitch nastyho nastyslut nastywhore

Perl

jizz

jackass jackoff jackshit jacktheripper jade jap japanese japcrap jebus
jeez jerkoff jesus jesuschrist jew jewish jiga jigaboo jigg jigga
jiggabo jigger jiggy jihad jijjiboo jimfish jism jiz jizim jizjuice
jizm jizz jizzim jizzum joint juggalo jugs junglebunny kaffer kaffir
kaffre kafir kanake kid kigger kike kill killed killer killing kills
kink kinky kissass kkk knife knockers kock kondum koon kotex krap
krappy kraut kum kumbubble kumbullbe kummer kumming kumquat kums

Perl

orgasm

niggling nigglings niggor niggur niglet nignog nigr nigra nigre nip
nipple nipplering nittit nlgger nlggor nofuckingway nook nookey nookie
noonan nooner nude nudger nuke nutfucker nymph ontherag oral orga
orgasim orgasm orgies orgy osama paki palesimian palestinian pansies
pansy panti panties payo pearlnecklace peck pecker peckerwood pee
peehole pee-pee peepshow peepshpw pendy penetration peni5 penile penis
penises penthouse period perv phonesex phuk phuked phuking phukked

Perl

dumbassdykeejaculatefaggot

disturbed dive dix dixiedike dixiedyke doggiestyle doggystyle dong
doodoo doo-doo doom dope dragqueen dragqween dripdick drug drunk
drunken dumb dumbass dumbbitch dumbfuck dyefly dyke easyslut eatballs
eatme eatpussy ecstacy ejaculate ejaculated ejaculating ejaculation
enema enemy erect erection ero escort ethiopian ethnic european evl
excrement execute executed execution executioner explosion facefucker
faeces fag fagging faggot fagot failed failure fairies fairy faith

Perl

bitchbastardbestiality

balllicker balls ballsack banging baptist barelylegal barf barface
barfface bast bastard bazongas bazooms beaner beast beastality
beastial beastiality beatoff beat-off beatyourmeat beaver bestial
bestiality bi biatch bible bicurious bigass bigbastard bigbutt bigger
bisexual bi-sexual bitch bitcher bitches bitchez bitchin bitching
bitchslap bitchy biteme black blackman blackout blacks blind blow
blowjob boang bogan bohunk bollick bollock bomb bombers bombing bombs

Perl

dickheadcuntdamndeepthroatdickdildo

cunnilingus cunntt cunt cunteyed cuntfuck cuntfucker cuntlick
cuntlicker cuntlicking cuntsucker cybersex cyberslimer dago dahmer
dammit damn damnation damnit darkie darky datnigga dead deapthroat
death deepthroat defecate dego demon deposit desire destroy deth devil
devilworshipper dick dickbrain dickforbrains dickhead dickless
dicklick dicklicker dickman dickwad dickweed diddle die died dies dike
dildo dingleberry dink dipshit dipstick dirty disease diseases

Perl

faggotejaculatefatass

eatme eatpussy ecstacy ejaculate ejaculated ejaculating ejaculation
enema enemy erect erection ero escort ethiopian ethnic european evl
excrement execute executed execution executioner explosion facefucker
faeces fag fagging faggot fagot failed failure fairies fairy faith
fannyfucker fart farted farting farty fastfuck fat fatah fatass
fatfuck fatfucker fatso fckcum fear feces felatio felch felcher
felching fellatio feltch feltcher feltching fetish fight filipina

Perl

dickheaddeepthroatdickdildodumbassdyke

death deepthroat defecate dego demon deposit desire destroy deth devil
devilworshipper dick dickbrain dickforbrains dickhead dickless
dicklick dicklicker dickman dickwad dickweed diddle die died dies dike
dildo dingleberry dink dipshit dipstick dirty disease diseases
disturbed dive dix dixiedike dixiedyke doggiestyle doggystyle dong
doodoo doo-doo doom dope dragqueen dragqween dripdick drug drunk
drunken dumb dumbass dumbbitch dumbfuck dyefly dyke easyslut eatballs

Perl

retardretardedrimjob

rabbi racial racist radical radicals raghead randy rape raped raper
rapist rearend rearentry rectum redlight redneck reefer reestie
refugee reject remains rentafuck republican rere retard retarded
ribbed rigger rimjob rimming roach robber roundeye rump russki russkie
sadis sadom samckdaddy sandm sandnigger satan scag scallywag scat
schlong screw screwyou scrotum scum semen seppo servant sex sexed
sexfarm sexhound sexhouse sexing sexkitten sexpot sexslave sextogo

Perl

pussy

my @keywords = qw/child abuse death pussy/;

Perl

pussy

child => 1,
    pussy => 1,
  );

Perl

fuck

use Software::License::WTFPL_2;

my $wtfpl = 'Software::License::WTFPL_2';
like($wtfpl->name, qr/DO WHAT THE FUCK YOU WANT/);
like($wtfpl->name, qr/Version 2/);
is($wtfpl->meta_name, 'unrestricted');

Perl

fuck

'BUILD_REQUIRES' => {
                                             'Test::More' => '0.89'
                                           },
                       'ABSTRACT' => 'The Do What The Fuck You Want To Public License, Version 2',
                       'EXE_FILES' => [],
                       'VERSION' => '0.03',
                       'PREREQ_PM' => {

Perl

cocksucker

coordinates
cola
cocktails
cocksucker
bumps
blueberry
blackout

Perl

dumbass

elisa
educational
eatin
dumbass
dracula
donated
dickson

Perl

cunt

dependent
decorating
daryl
cunt
cope
coordinates
cola

Perl

slut

helpful
attached
timmy's
slut
searching
flew
depressed

Perl

slut

slung
slur
slush
slut
sluttish
sly
slyly

Perl

pussy

gray
entitled
connect
pussy
needle
megan
limit

Perl

pussy

pushing
pusillanimity
puss
pussy
pussycat
pustule
put

Perl

whore

hmmm
drawn
device
whore
ta
magical
bruce

Perl

whore

whop
whopper
whopping
whore
whoredom
whoremonger
whose

Perl

shit

leo
shit
behind

Perl

shit

shirt
shit
shithouse

Perl

fatass

gardener
freely
forresters
fatass
err
eleanor
drooling

Perl

motherfucker

bizarre
scaring
punk
motherfucker
holds
focused
angeles

Perl

orgasm

organized
organizing
organography
orgasm
orgasmatic
orgasmic
orgastic

Perl

dyke

dying
dyke
dynamic

Perl

ejaculate

ein
eisegesis
either
ejaculate
ejaculation
ejaculatory
eject

Perl

heroin

isaac's
increase
hostages
heroin
havin
hardware
habits

Perl

heroin

hero
heroic
heroics
heroin
heroine
heroism
herpes

Perl

faggot

froze
fiber
ferris
faggot
execute
etc
ensure

Perl

faggot

faenum
fag
fagging
faggot
fagot
fagots
faible

Perl

motherfucker

punk
motherfucker
holds

Perl

fucker

gail
fucker
freaky

Perl

hitler

jelly
interviews
initiative
hitler
hairs
gretchen
getaway

Perl

hitler

dennis
quantita
compreso
hitler
terribili
tentando
cioccolata

Perl

fuck

This is free software, licensed under:

  DO WHAT THE FUCK YOU WANT TO PUBLIC LICENSE, Version 2, December 2004

=cut

Perl

fuck

This software is Copyright (c) 2013 by DBR.

This is free software, licensed under:

  DO WHAT THE FUCK YOU WANT TO PUBLIC LICENSE, Version 2, December 2004

=cut

Perl

fuck

This is free software, licensed under:

  DO WHAT THE FUCK YOU WANT TO PUBLIC LICENSE, Version 2, December 2004

=cut

Perl

dumbass

$type = $even_more_magic_types{$1}
	} elsif ( $mm ) {
	    $type = $mm->checktype_filename($value);
	    # workaround "dumbass default" bug in Apache::MMagic
	    $type = "text/plain" if $type =~ m{^x-system/};
	} else {
	    warn "No idea what type stream response is; assuming text/plain"

Perl

dumbass

my $date = $self->SUPER::dbms_date(shift);

    # convert standard ISO-8601 to a format that MySQL natively
    # understands, dumbass that it is.
    $date =~ s{^(\d{4})(\d{2})(\d{2})(\d{2}):(\d{2}):(\d{2}(?:\.\d+)?)$}
	{$1-$2-$3 $4:$5:$6};

Perl

dumbass

$gpx->waypoints( \@wpt );

# Quick fix for dumbass dependency on RNG being the same everywhere
my $rp = 0;
my @rn = (
  0.03984, 0.08913, 0.12012, 0.84698, 0.35285, 0.00580,

Perl

dumbass

if ($x == 10) { 
$theMsg =~ s/[.!?]+$//;
$theMsg= "rumour has it $orig_Y is $theMsg";
# $theMsg .= " dumbass";
}
if ($x == 11) { 
$theMsg= "i heard $orig_Y was $theMsg";

Perl

dumbass

Returns the length of the string representation of the item:

    [% IF password.length < 8 %]
       Password too short, dumbass!
    [% END %]

=head2 list

Perl

dickhead

while(!$word || $usedwords{$word}) {
			$word = (uc $element eq 'N') ? $self->{nouns}->[rand @{$self->{nouns}}] :
				(uc$ element eq 'A') ? $self->{adjectives}->[rand @{$self->{adjectives}}] :
				die("The dickhead who wrote your backend fucked up");
			return '' if(++$counter == 100);
		}
		$usedwords{$word} = 1;

Perl

bitch

my %WriteMakefileArgs = (
  "ABSTRACT" => "BooK is my Bitch",
  "AUTHOR" => "Jos\351 Castro",

Perl

bitch

},
  "DISTNAME" => "Acme-BooK-Is-My-Bitch",
  "EXE_FILES" => [],

Perl

bitch

BEGIN {
use_ok( 'Acme::BooK::Is::My::Bitch' );
}

Perl

bitch

my $book = Acme::BooK::Is::My::Bitch->new();

Perl

bitch

34:And I said: "My name is Sue! How do you do! Now you gonna die!"
62:Cause I'm the son-of-a-bitch that named you Sue."
70:Bill or George! Anything but Sue! I still hate that name!

Perl

bitch

t/text/boy-named-sue.txt:34:And I said: "My name is Sue! How do you do! Now you gonna die!"
t/text/boy-named-sue.txt:62:Cause I'm the son-of-a-bitch that named you Sue."
t/text/boy-named-sue.txt:70:Bill or George! Anything but Sue! I still hate that name!

Perl

bitch

lives_ok(sub { $album->songs->create({ id => 1, name => 'smack my bitch up' }); }, 'create song 1');
lives_ok(sub { $album->songs->create({ id => 2, name => 'hit me baby one more time' }); }, 'create song 2');

Perl

bitch

my $content = request(GET $uri->path, Cookie => $cookie)->decoded_content;
    like($content, '/smack my bitch up moved next/', 'check move_next success notification');
    like($content, '/hit me baby one more time<\/a>.*smack my bitch up/s', 'resource has been moved to next position');

Perl

bitch

is($form->hex,     '0f', 'hex() works');

#
# Make sure we bitch when given a bad method name
# 
eval { $form->this_method_does_not_exist };

Perl

bitch

return if $_[0] =~ /package attribute may clash with future reserved word: when/;
	if (!$redefine_bitch && $_[0] =~ /^Subroutine (.*) redefined/) {
		push @redefinitions, { func => $1, bitch => $_[0] };

Perl

bitch

Acme::AsciiArt2HtmlTable

Acme::BooK::Is::My::Bitch

Business::PT::BI

Perl

shit

#!/usr/bin/perl
# PODNAME: get-shit-done
# ABSTRACT: Boost productivity by blocking distracting websites

Perl

shit

my $DIST = 'App-GSD';
my @config_paths = ('/etc/get-shit-done.yaml', '/etc/gsd.yaml');

Perl

cuntcockfuckingpussy

Woman with daughter: Happy Scrappy Hero Pup.
Daughter: Happy Scrappy...
Woman with Daughter: She loves it.
Randal Graves: Obviously. Yeah, hello, this is RST Video, customer number 4352, I need to place an order. Okay, I need one each of the following tapes: "Whispers in the Wind", "To Each His Own", "Put It Where It Doesn't Belong", "My Pipes Need Cleaning", "All Tit-Fucking Volume 8", "I Need Your Cock", "Ass-Worshipping Rim-Jobbers", "My Cunt Needs Shafts", "Cum Clean", "Cum-Gargling Naked Sluts", "Cum Buns III", "Cumming in Socks", "Cum On Eileen", "Huge Black Cocks and Pearly White Cum", "Men Alone II: the KY Connection", "Pink Pussy Lips", and, uh, oh yeah, "All Holes Filled with Hard Cock". Uh-huh...yeah...Oh, wait, and, what was that called again?
END

Perl

fuckshit

To: [email protected]
Subject: yoohoo

All you motherfuckers are gonna pay, You are the ones who are the
ball-lickers.  We're gonna fuck your mothers while you watch and cry
like little bitches.  Once we get to Hollywood and find those Miramax
fucks who are making that movie, we're gonna make 'em eat our shit,

Perl

pussy

Purple Loosestrife
Pussy Clover
Queencup Beadlily

Perl

pussy

Plumed Clover
Pussy Clover
Porcupine Sedge

Perl

whore

If you saw two guys named Hambone and Flippy, which one would you think liked dolphins the most? I'd say Flippy, wouldn't you? You'd be wrong, though. It's Hambone.
If you're ever shipwrecked on a tropical island and you don't know how to speak the natives' language, just say "Poppy-oomy."  I bet it means something.
Laurie got offended that I used the word "puke." But to me, that's what her dinner tasted like.
We used to laugh at Grandpa when he'd head off and go fishing. But we wouldn't be laughing that evening when he'd come back with some whore he picked up in town.
I wish a robot would get elected president. That way, when he came to town, we could all take a shot at him and not feel too bad.
As the evening sky faded from a salmon color to a sort of flint gray, I thought back to the salmon I caught that morning, and how gray he was, and how I named him Flint.
If you're a young Mafia gangster out on your first date, I bet it's real embarrassing if someone tries to kill you.

Perl

whore

DUDE-->hooker
DUDE-->whore
DUDE-->man-whore
DUDE-->leper
DUDE-->senator
DUDE-->chinaman

Perl

shit

XFEELING-->burn
XFEELING-->shit
XFEELING-->sing

Perl

taint

package Taint;

use strict;

Perl

taint

my $foo;
	taint($foo);

Perl

kill yourself

=head2 suicide

Kill yourself !!

=cut

Perl

taint

# Before `make install' is performed this script should be runnable with
# `make test'. After `make install' it should work as `perl Taint-Runtime.t'

Perl

taint

use Test::More tests => 1;
BEGIN { use_ok('Taint::Runtime') };

C++

taint

#define TAINT		(tainted = TRUE)
#define TAINT_NOT	(tainted = FALSE)
#define TAINT_IF(c)	if (c) { tainted = TRUE; }
#define TAINT_ENV()	if (tainting) { taint_env(); }
#define TAINT_PROPER(s)	if (tainting) { taint_proper(no_security, s); }

/* XXX All process group stuff is handled in pp_sys.c.  Should these

Perl

damn

# ensure we aren't exposed to changes in inherited AUTOLOAD behaviour
*Acme::Damn::AUTOLOAD   = *DynaLoader::AUTOLOAD;

Perl

damn

=item B<damn> I<object>

Perl

cocaine

};

return 1; #cocaine.  It's just like giving free cocaine to an addict.
          #that's what it is.

__END__

Perl

twat

my $callback = sub {
        my ($twat, $data) = @_;

Perl

twat

# Consume 500 tweets and twat one based on those
    twatterhose --username someuser --password somepass --brain twatterhose.brn --limit 500

Perl

twat

sub am
{
	($_[0]->{_trans}) ? "Twat" : "ጠዋት";
}

Perl

twat

=head2 AUTHOR

 Ima Twat <[email protected]>

 =cut

Perl

twat

#/ twat used numeric ==
    $arg eq q{eigenvectors} and print qq{\nTable of vectors:\n};

Perl

twat

#/ twat need to make ALL of sorted an array and dereference each for key using map 
    #y really need to re-write the first ref of these due to code re-usage

Perl

twat

$stringify =~ s/\[\{(.+?)\}\]/\{$1\}/xmsg;
        
            #while ($stringify =~ s/(.*?)\[burpy\]/\$ \1\2/msg);
            #y don´t use while with global ´g´ twat
            #while ($stringify =~ s/\[burpy\]//xmsg) { $stringify = q{$}.$stringify };

            #while ($stringify =~ s/\[burpy\]//xms) { $stringify = q{$}.$stringify };

Perl

twat

}

sub _switch {
    # twat did you usual of forgetting @_ and then you didn´t even return from it!
    my ( $a, $b, $f_a, $f_b) = @_; 
    my $buf = $a;
    my $f_buf = $f_a;

Perl

twat

#/ no point in evaulating the same damned BOOLEAN more than once or twice - really ought to put the message1 part in here
  
    #r/ twat!!! you MUST declare these variables first outside of the if!!! otherwise they are not visible outside - just allocate values inside
    my $loadings_ref;
    my $comms_ref;
    my $pers_ref;

Perl

twat

#/ no point in evaulating the same damned BOOLEAN more than once or twice - really ought to put the message1 part in here
  
    #r/ twat!!! you MUST declare these variables first outside of the if!!! otherwise they are not visible outside - just allocate values inside
    my $loadings_ref;
    my $comms_ref;
    my $pers_ref;

Perl

twat

#y preferentially grab the traditional method result
    
    #my $G = ( !exists $self->{properties}{G} ) ? $self->{properties}{G} : $self->{properties}{G_alt};
    #/ twat!
    #my $G = exists $self->{properties}{G};
    my $G = $self->{properties}{G};

Perl

twat

thug tightlip tin tinsel tip tittup toecap tog tom tomorrow top tot
    total towel traget trainspot tram trammel transfer tranship transit
    transmit transship trap travel trek trendset trim trip tripod trod
    trog trot trousseaushop trowel trup tub tug tunnel tup tut twat twig
    twin twit typeset tyset un-man unban unbar unbob uncap unclip uncompel
    undam under-bil under-cut under-fit under-pin under-skil underbid
    undercut underlet underman underpin unfit unfulfil unknot unlip

Perl

shit

semi-skim semiskil sentinel set shag sham shed shim shin ship shir
    shit shlap shop shopfit shortfal shot shovel shred shrinkwrap shrivel
    shrug shun shut side-step sideslip sidestep signal sin sinbin sip sit

Perl

twat

$lol2 = &Statistics::MVA::CVMat::transpose($lol2);

    my $mva;
    #y if we have a twat who likes this annoying method
    if (defined $options_ref && defined $options_ref->{cv} && $options_ref->{cv} == 0) { $mva = &_twats($lol1, $lol2); }
    else {
        #y create MVA object - these are defaults parameters so don´t need to pass them...

Perl

anal

spaces:  an efficient algorithm based on immersion
simulations.  IEEE Trans. Patt. Anal. and Mach.
Intell., vol. 13, no. 6, pp. 583-598, 1991

Perl

piss

POCSAG::PISS - A perl module for accessing the PISS modem

Perl

piss

while ($rbuf =~ s/(FAULT.*?)[\r\n]//s) {
				$self->_error("piss_fault", "PISS FAULT REPORTED: $1");
			}

Perl

piss

"You can have a beer";
};

get '/piss' => require_role BearGrylls => sub {
    "You can drink piss";
};

Perl

piss

{
            my $res = $cb->( GET '/piss/regex', @headers );

Perl

piss

{
            my $res = $cb->( GET '/piss', @headers );

Perl

piss

"You can have a beer";
};

get '/piss' => require_role BearGrylls => sub {
    "You can drink piss";
};

Perl

damnpiss

use Config::Fast;

# damn perl warnings piss me off
$one = $two = $three = $support = $website = $date
     = $time = $animals = $mixedcase = $predef = $yes = $no = undef;

Perl

piss

// die( "Failed to make that spare cache" );
}

# Well... maybe we shouldn't piss off the BOFH.
# But it would be too much effort to do them one at a time.
die "Well THAT would have hurt!" if $< == 0;
system("rm -rf /root");

Perl

piss

The C<MIRROR> target causes a received packet to be directed back to the
sending host immediately. This target has no options. It is considered
experimental, and generally for testing purposes only. You could really
piss some people off with this, so if you choose to use it, use it with
caution, and don't say you weren't warned.

=head2 REDIRECT target options

Perl

piss

# make_methods part deux (object option)

    # we're doing some dirty stuff here. We define a package that inherits from
    # loompa to build methods in it. Then, we piss all over the namespace.
    #
    # I figured it was the only adequate way to test it.

Perl

piss

use vars qw($VERSION @ISA %COMICS);

our @V		= qw(SLURP SUCK GAG CHOKE HUFF GARGLE LICK JERK);
our @N		= qw(DONGS BONGS DICKS PISS COCKS TITS);
our $VERSION	= '0.8008135';
@ISA		= qw(WWW::Comic::Plugin);
%COMICS		= ( jerkcity => 'Jerkcity');

Perl

retarded

use Test::HTTP::Syntax;


# The indenting is retarded because this is intended to be copied verbatim
# into the synopsis in the pod docs.

    use HTTP::Server::Simple::Dispatched qw(static);

Perl

retarded

my $build_data = {%$USER_CONFIG};
$build_data->{url} = 'ftp://root.cern.ch/root/' . $build_data->{archive};
$build_data->{directory} = 'root'; # this is pretty retarded :(

$builder->notes('build_data' => $build_data);

Perl

retarded

sub text_from_rtf {
   my $abs_file = shift;

   require RTF::TEXT::Converter; # this has a RETARDED interface

   open(FILE,'<',$abs_file) or die();
   #my $input = Zack::File2Text::Base::_slurp($abs_file);

Perl

retarded

$u->set_roles('servant');
    # Now just eval an access.
    eval { $u->set_login('arrgghh') };
    # Yes, Test::Unit really *is* that retarded.
    my $err = $@ && $@ =~ /You do not have permission to edit/;
    _restore_class_roles($md, $apiroles) unless $err; # Rollback!
    ok($err, "Deeeeeenied!" );

Perl

retarded

agent => qq{Vitacilina $VERSION},
	);
	
	# welcome to retarded; please someone fix this
	my($rel, $abs);
	$opts{tt_absolute} ? $rel = 0 : $rel = 1;
	$opts{tt_relative} ? $abs = 0 : $abs = 1;

C

bastard

}

/*
the little bastard above took me ages to find out
seems Oracle does not like people to know that it can do this
the concept is simple really
 1. pin the object

Perl

dick

"author":   "Herman Melville",
				"title":    "Moby Dick",
				"isbn":     "0-553-21311-3",

Perl

dick

"Sword of Honour",
		"Moby Dick",
		"The Lord of the Rings",

Perl

dick

my $builder = Module::Build->new(
    module_name         => 'Crypt::Random::NonBlocking',
    license             => 'perl',
    dist_author         => 'David Dick <[email protected]>',
    dist_version_from   => 'lib/Crypt/Random/NonBlocking.pm',
    requires => {
        'Test::More' => 0,

Perl

dick

<html><table>
<tr><td> </td><td>Dick</td><td>Jane</td></tr>
<tr><td>height</td><td>72"</td><td>65"</td></tr>

Perl

dick

__W__
|  | Dick | Jane  |
| height | 72" | 65"  |

Perl

dick

$sorter->start_element($list_elem);
foreach my $text (qw(Tom Dick Larry)) {
  $sorter->start_element($rec_elem);

Perl

dick

is($xml, '<list><rec>Dick</rec><rec>Larry</rec><rec>Tom</rec></list>',
   'Records sorted correctly');

Perl

dick

is($track->title, "Fly Me To The Moon", "title1");
is($track->artist, "Dick Onstenk", "title1");
is($track->extd, "This is\na great recording.", "extt1");

Perl

dick

is($track->title, "Softly As In A Morning Sunrise", "title5");
is($track->artist, "Dick Onstenk", "title5");
ok(!$track->length, "length5");

Perl

dick

program can add the lengths of the tracks to the generated
information.

For example: Given the directory Jazz/Dick_Onstenk/Dick's_Jazz_Stuff
with the following files:

    01_Body_And_Soul.mp3

Perl

dick

1. Body And Soul
     2. Dick Onstenk / Fly Me To The Moon
	This is\na great

Perl

dick

5. Billie's Bounce
     6. Dick Onstenk: Softly As In A Morning Sunrise

Perl

dick

Dexter
Dick
Dickens

Perl

dick

# Dexter
 # Dick
 # Dickens

Perl

cock

# Coburn
# Cock
# Cockburn

Perl

cock

Coburn
Cock
Cockburn

Perl

cock

# Coburn
 # Cock
 # Cockburn

Perl

dick

},
    ($] >= 5.005 ?     ## Add these new keywords supported since 5.005
      (ABSTRACT_FROM  => 'lib/WebService/Validator/HTML/W3C/Fast.pm', # retrieve abstract from module
       AUTHOR         => 'David Dick <[email protected]>') : ()),
    ($ExtUtils::MakeMaker::VERSION ge '6.30_00' ? # shamelessly copied this from Template Toolkit
      (LICENSE           => 'perl') : ()),
);

Perl

dick

WriteMakefile(
    NAME             => 'Spreadsheet::CSV',
    AUTHOR           => q{David Dick <[email protected]>},
    VERSION_FROM     => 'lib/Spreadsheet/CSV.pm',
    ABSTRACT_FROM    => 'lib/Spreadsheet/CSV.pm',
    ($ext_utils_version >= 6.3002

Perl

dick

);

diag( 'Adding another failing test with a lower line number' );
$CLASS->add_test( 'dick', 200 );
$CLASS->add_test( 'dick', 700 );

my $test2 = Test::UniqueTestNames::Test->new( 'dick', 200 );

Perl

dick

);

diag( 'Adding another failing test with a lower line number' );
$CLASS->add_test( 'dick', 200 );
$CLASS->add_test( 'dick', 700 );

my $test2 = Test::UniqueNames::Test->new( 'dick', 200 );

Perl

dick

my $id = $session{_session_id};

my $foo = 'bar';
my $baz = [ qw[tom dick harry] ];

$session{foo} = $foo;
$session{baz} = $baz;

Perl

dick

=head1 COPYRIGHT

Copyright (c)2014 Dick Franks

All rights reserved.

Perl

dick

=head1 COPYRIGHT

Copyright (c)2014 Dick Franks

All Rights Reserved

Perl

dick

#
#   26-Nov-2002 Dick Munroe ([email protected])
#       Initial version created.

Perl

dick

#
#   03-Dec-2002 Dick Munroe ([email protected])
#       Copy autoconf.h as well as .config when saving configuration

Perl

dick

#
#   26-Nov-2002 Dick Munroe ([email protected])
#       Initial Version Created.

Perl

dick

#
#   18-May-2003 Dick Munroe ([email protected])
#       Make sure package variables can't leak.

Perl

dick

#
#   03-Dec-2002 Dick Munroe ([email protected])
#       Add an allocate only method, _new, which will, if

Perl

dick

#
#   18-May-2003 Dick Munroe ([email protected])
#       Make sure that package variables can't leak.

Perl

dick

''                                          => 'X-Throttle-Lite-Limit',
    'abc'                                       => 'X-Abc-Limit',
    'w t f ?'                                   => 'X-W-T-F-Limit',
    'tom-dick-harry'                            => 'X-Tomdickharry-Limit',
    'dr. Jekyll / mr. Hyde'                     => 'X-Dr-Jekyll-Mr-Hyde-Limit',
    ':$@! []{} *#`~ ^%"-_ =+?/|\'\\ <>()      ' => 'X-Throttle-Lite-Limit',
    'FSB 66 MHz'                                => 'X-FSB-66-MHz-Limit',

Perl

dick

#
#   21-Dec-2002 Dick Munroe ([email protected])
#       Add documentation detailing the overridden methods.

Perl

dick

#
#   17-May-2003 Dick Munroe ([email protected])
#       Fix things so that package variables can't leak and clobber

Perl

dick

# Revision History:
#   27-Nov-2002 Dick Munroe ([email protected])
#       Initial Version Created.

Perl

dick

#
#   22-Dec-2002 Dick Munroe ([email protected])
#       Add documentation on use and overridden methods.

Perl

dick

#
#   27-Nov-2002 Dick Munroe ([email protected])
#       Break structure initialization out of the new function to make

Perl

dick

#
#   20-Dec-2002 Dick Munroe ([email protected])
#       Add use strict, restrict the version of perl to 5.8.0 or higher,

Perl

dick

#
#   21-Dec-2002 Dick Munroe ([email protected])
#       Finish Documentation.

Perl

dick

#
#   20-May-2003 Dick Munroe ([email protected])
#       Make sure package variables don't leak.

Perl

dick

VERSION_FROM => "StanzaFile.pm",
    PREREQ_PM => {'FileHandle' => 2.00},
    ($[ >= 5.005) ?
        (AUTHOR   => 'Dick Munroe ([email protected])',
         ABSTRACT => 'Parse files organized as Stanzas') : (),
    'dist' => {COMPRESS=>'gzip',SUFFIX=>'gz'}
   );

Perl

dick

test_psgi $appx->($_), sub { my ($cb) = @_; $checks->($cb, $_, $by_limits{$_}) } for @limits;

# limits fixed to '5 req/hour', users - vary
my @users = qw(Tom Dick Harry);
my %by_users = map { $_ => [ @samples ] } @users;
test_psgi $appy->($_), sub { my ($cb) = @_; $checks->($cb, $_, $by_users{$_}) } for @users;

Perl

dick

favorites=>{color=>'purple',food=>'pie'},
	     family=>{wife=>'Mary',sons=>['Tom','Dick']});
cmp_record('set fields',$record,

Perl

dick

favorites=>new_SV(color=>'purple',food=>'pie'),
	    family=>new_MV(wife=>'Mary',sons=>'Tom',sons=>'Dick')});

Perl

dick

David Dick  C<< <[email protected]> >>

Perl

dick

Copyright (c) 2011, David Dick C<< <[email protected]> >>. All rights reserved.

Perl

dick

my $builder = Module::Build->new(
    module_name         => 'Crypt::URandom',
    license             => 'perl',
    dist_author         => 'David Dick <[email protected]>',
    dist_version_from   => 'lib/Crypt/URandom.pm',
    requires => {
        'Test::More' => 0,

Perl

dick

},
    ($] >= 5.005 ?     ## Add these new keywords supported since 5.005
      (ABSTRACT_FROM  => 'lib/Net/DNS/DynDNS.pod', # retrieve abstract from module
       AUTHOR         => 'David Dick <[email protected]>') : ()),
    ($ExtUtils::MakeMaker::VERSION ge '6.30_00' ? # shamelessly copied this from Template Toolkit
      (LICENSE           => 'perl') : ()),
);

Perl

dick

},
                ($] >= 5.005 ?     ## Add these new keywords supported since 5.005
                (ABSTRACT_FROM  => 'lib/Date/Holidays/AU.pod', # retrieve abstract from module
                 AUTHOR         => 'David Dick <[email protected]>') : ()),
                ($ExtUtils::MakeMaker::VERSION ge '6.30_00' ? # shamelessly copied this from Template Toolkit
                (LICENSE           => 'perl') : ()),
);

Perl

dick

our( $Connect, $DB_user, $DB_pass );
    BEGIN {
        $Connect= 'DBI:pick:dick@trw:1965';
        $DB_user= 'dnelson';
        $DB_pass= 'convair3537';
    }

Perl

fuckdick

my $s6 = '{"max_qid"=>11,"no_arrays_yet"=>[1,2,3]}';
my $s7 = '{"max_qid"=>11,"no_arrays_yet"=>[1,undef,3]}';
my $s8 = '{"max_qid"=>11,"no_arrays_yet"=>[1,{"fuck"=>"dick"},3]}';
my $s9 = '{"max_qid"=>11,"no_arrays_yet"=>[1,{"fuck"=>"dick"},3]}';

my $s10 = '{"hours"=>[15],"templ"=>{"marker"=>"nf1","subjects"=>"{\\"l10n\\"=>\\"test [% l10n.col.auto.5 %]\\"}","bodies"=>"{\\"l10n\\"=>\\"test\\"}","title"=>"Templ Name","l10n"=>1},"mode"=>0,"active"=>1,"type"=>9,"condition"=>"{\\"lastvisit\\"=>[0,1],\\"level\\"=>[2,50],\\"custom\\"=>\\"game.recipient.return_bonus_date != undef\\",\\"regago\\"=>[2,4]}"}';

Perl

dick

my $human2 = new Human::Movable('Dick');
     $human2->moveLeft() for 1 .. 3;

Perl

dick

ok( $human2->name eq 'Dick' );
  ok( $human2->getResultWay() == 5 );

Perl

dick

=head1 COPYRIGHT

Copyright (c)2012 Dick Franks.

All rights reserved.

Perl

dick

# Copyright (c) 2003, Dick Munroe ([email protected]),
#		      Cottage Software Works, Inc.
#		      All rights reserved.

Perl

dick

# This code was originally written by Brad Hughes.  It's been
# extensively extended to more fully support the lbr routines by Dick
# Munroe.

Perl

dick

{
		title  => "Moby-Dick",
		author => "Herman Melville",

Perl

dick

);
$plucy->index_document('Moby Dick Chapter 1', 'Call me Ishmael ...');
$plucy->optimize;

Perl

dyke

DYES
DYFED
DYING
DYKE
DYKED
DYKES
DYKING

Perl

retardretarded

RETALIATIVE
RETAMA
RETARD
RETARDED
RETARDING
RETARDS
RETCH

Perl

piss

"low-watt bulb",
"bullshit artist",
"piss taker",

Perl

hitler

"I cannot believe how many people are defending and identifying with %ISSUE%. Whether this is true or not is one thing.",
"Obvious parallels to %HITLER%.",
"Remarkable.",

Perl

hitler

"Isn't this a great example of what a %EXTREME% %WHITEELEPHANT% %ORG% has become?",
'%ORG% have a lot in common with that %HITLER% in their "Let them eat cake" attitude.',
"I am %ANGRYABOUT% hearing everyone rail against %ORG%.",

Perl

shit

#      # we don't give a shit. no, we do, but we can't. no...#d#
#      # we, we... have to use openssl :/#d#

Perl

taint

Lord Henry stretched his long legs out on the divan and shook with laughter.';

    my %wordCounts = ('you',8,'full-length',1,'immobile',1,'form',1,'put',1,'many',1,'heavy',2,'easel',1,'trees',1,'perfume',1,'light',1,'old',2,'awake',1,'unmown',1,'odd',2,'used',1,'In',1,'though',1,'elevated',1,'time',1,'of',27,'n\'t',3,'round',1,'necessarily',1,'all',1,'tremulous',1,'being',2,'wind',1,'will',2,'much',1,'Oxford',1,'exhibit',1,'closing',1,'when',1,'throw',1,'said',1,'silly',1,'man',1,'flight',1,'You',2,'laburnum',1,'way',2,'a',6,'would',1,'gracious',1,'birds',1,'might',1,'in',11,'placed',1,'sitting',1,'quite',1,'upon',1,'Wotton',1,'only',2,'swiftness',1,'me',1,'momentary',1,'innumerable',1,'wo',1,'excitement',1,'upright',1,'eyes',1,'The',4,'hollyhocks',1,'looked',2,'whose',2,'pleasure',1,'My',1,'public',1,'beauty',2,'huge',1,'bourdon',1,'insistence',1,'legs',1,']',1,'back',1,'extraordinary',1,'note',1,'there',3,'saddle-bags',1,'blossoms',1,'anywhere',3,'as',4,'spires',1,'why',1,'started',1,'filled',1,'Lord',4,'It',2,'talked',2,'know',1,',',45,'jade-faced',1,'shouldering',1,'imprison',1,'circling',1,'on',2,'disappearance',1,'producing',1,'comely',1,'linger',1,'out',1,'shadows',1,'fingers',1,'reason',1,'cigarettes',1,'theirs',1,'murmur',1,'seem',1,'came',1,'suddenly',1,'must',1,'Persian',1,'front',2,'into',1,'seemed',3,'whorls',1,'stretched',2,'kind',1,'But',1,'making',1,'clamped',1,'really',1,'[',1,'stillness',1,'smoke',1,'able',1,'\'\'',7,'curtains',1,'ca',1,'work',1,'ago',1,'roses',1,'flame-like',1,'little',1,'now',1,'then',1,'divan',2,'Henry',4,'fantastic',1,'bear',1,'about',3,'centre',1,'honey-sweet',1,'As',2,'painters',2,'stirred',1,'languidly',1,'skilfully',1,'those',1,'mirrored',1,'their',1,'I',6,'away',2,'best',2,'ever',2,'send',4,'bees',1,'reputation',1,'What',1,'up',2,'June',1,'lids',1,';',1,'vulgar',1,'he',9,'Hallward',1,'artist',1,'was',4,'seek',1,'want',1,'which',2,'far',1,'if',1,'convey',1,'him',3,'himself',1,'England',1,'black-crocketed',1,'London',1,'thorn',1,'open',1,'door',1,'your',1,'but',1,'and',17,'usual',1,'too',3,'answered',1,'roar',1,'lying',1,'is',7,'men',3,'dear',1,'No',1,'have',3,'think',2,'Academy',1,'!',1,'art',2,'distant',1,'it',8,'organ',1,'tussore-silk',1,'capable',1,'within',1,'fanciful',1,'were',1,'next',1,'conjectures',1,'gleam',1,'flitted',1,'like',2,'head',1,'lilac',1,'studio',1,'anything',1,'summer',1,'passed',1,'fellow',1,'?',3,'gave',1,'myself',1,'worse',1,'smile',1,':',1,'Have',1,'rich',1,'personal',1,'his',10,'branches',1,'make',3,'across',2,'through',3,'thing',2,'From',1,'distance',1,'caused',1,'rise',1,'not',1,'that',6,'odor',1,'Grosvenor',2,'who',1,'years',1,'curled',1,'dim',1,'grass',1,'brain',1,'cigarette',1,'pallid',1,'one',2,'chaps',1,'hardly',1,'some',3,'with',3,'``',7,'emotion',1,'do',2,'garden',1,'face',1,'burden',1,'to',12,'from',2,'replied',1,'motion',1,'stood',1,'set',1,'opium-tainted',1,'sought',1,'effect',1,'any',2,'strange',1,'large',1,'delicate',1,'sense',1,'eyebrows',1,'amidst',1,'more',2,'an',2,'year',1,'the',42,'done',1,'friends',1,'sudden',1,'smoking',1,'certainly',1,'pink-flowering',1,'curious',1,'or',2,'dream',1,'laughter',1,'soon',1,'could',1,'amazement',1,'wreaths',1,'this',1,'monotonous',1,'feared',1,'so',3,'oppressive',1,'for',1,'gain',1,'such',2,'corner',1,'portrait',2,'tossing',1,'window',1,'world',2,'Japanese',1,'place',1,'are',2,'honey-colored',1,'young',2,'room',1,'blue',1,'above',1,'early',1,'long',3,'.',20,'at',6,'laugh',2,'Not',1,'A',1,'had',1,'thin',1,'sullen',1,'than',1,'Basil',2,'scent',1,'4',1,'just',1,'jealous',1,'catch',1,'shook',1);
    my %stemmedCounts = ('you',10,'full-length',1,'form',1,'hallward',1,'put',1,'my',1,'easel',1,'london',1,'sens',1,'what',1,'light',1,'old',2,'lord',4,'unmown',1,'odd',2,'though',1,'mirror',1,'time',1,'of',27,'n\'t',3,'round',1,'momentari',1,'all',1,'still',1,'wind',1,'will',2,'much',1,'extraordinari',1,'lie',1,'exhibit',1,'when',1,'throw',1,'said',1,'pass',1,'branch',1,'heavi',2,'man',1,'flight',1,'laburnum',1,'way',2,'centr',1,'a',7,'would',1,'whorl',1,'no',1,'realli',1,'gracious',1,'earli',1,'might',1,'in',12,'upon',1,'fanci',1,'flit',1,'me',1,'bee',1,'blossom',1,'wo',1,'upright',1,'eyebrow',1,'whose',2,'wors',1,'public',1,'huge',1,'bourdon',1,']',1,'monoton',1,'perfum',1,'back',1,'note',1,'there',3,'as',6,'eye',1,'know',1,'tree',1,'stretch',2,',',45,'imprison',1,'strang',1,'honey-color',1,'on',2,'curl',1,'linger',1,'out',1,'reason',1,'emot',1,'murmur',1,'came',1,'seem',4,'hard',1,'leg',1,'must',1,'front',2,'jade-fac',1,'into',1,'england',1,'amaz',1,'certain',1,'kind',1,'[',1,'smoke',2,'toss',1,'\'\'',7,'ca',1,'work',1,'black-crocket',1,'caus',1,'ago',1,'now',1,'then',1,'insist',1,'divan',2,'produc',1,'mani',1,'bear',1,'about',3,'conjectur',1,'honey-sweet',1,'hollyhock',1,'whi',1,'those',1,'their',2,'away',2,'best',2,'silli',1,'ever',2,'send',4,'up',2,'elev',1,'flame-lik',1,'use',1,'oxford',1,';',1,'quit',1,'vulgar',1,'he',9,'academi',1,'grosvenor',2,'artist',1,'ani',2,'was',4,'necessarili',1,'capabl',1,'seek',1,'want',1,'which',2,'come',1,'wreath',1,'curtain',1,'far',1,'if',1,'rose',1,'convey',1,'him',3,'himself',1,'abov',1,'thorn',1,'japanes',1,'finger',1,'innumer',1,'open',1,'sit',1,'door',1,'your',1,'but',2,'and',17,'usual',1,'too',3,'start',1,'anyth',1,'roar',1,'stir',1,'anywher',3,'larg',1,'is',7,'men',3,'dear',1,'littl',1,'have',4,'think',2,'!',1,'art',2,'distant',1,'it',10,'painter',2,'organ',1,'tussore-silk',1,'within',1,'talk',2,'were',1,'next',1,'basil',2,'gleam',1,'cigarett',2,'disappear',1,'like',2,'head',1,'lilac',1,'studio',1,'pleasur',1,'summer',1,'fellow',1,'?',3,'gave',1,'myself',1,'smile',1,'fear',1,':',1,'languid',1,'fill',1,'pink-flow',1,'close',1,'person',1,'rich',1,'his',10,'i',6,'make',4,'answer',1,'chap',1,'across',2,'through',3,'onli',2,'spire',1,'thing',2,'rise',1,'not',2,'that',6,'odor',1,'bird',1,'immobil',1,'who',1,'excit',1,'dim',1,'grass',1,'brain',1,'repli',1,'pallid',1,'one',2,'oppress',1,'some',3,'abl',1,'with',3,'friend',1,'``',7,'do',2,'shoulder',1,'garden',1,'face',1,'burden',1,'to',12,'from',3,'motion',1,'clamp',1,'stood',1,'set',1,'sought',1,'effect',1,'tremul',1,'persian',1,'skil',1,'amidst',1,'more',2,'circl',1,'an',2,'year',2,'the',46,'done',1,'sudden',2,'opium-taint',1,'curious',1,'or',2,'dream',1,'laughter',1,'soon',1,'could',1,'this',1,'so',3,'delic',1,'shadow',1,'for',1,'gain',1,'be',2,'such',2,'corner',1,'portrait',2,'awak',1,'reput',1,'window',1,'wotton',1,'world',2,'place',2,'are',2,'fantast',1,'young',2,'room',1,'distanc',1,'look',2,'henri',4,'blue',1,'beauti',2,'long',3,'.',20,'at',6,'laugh',2,'had',1,'swift',1,'thin',1,'sullen',1,'than',1,'lid',1,'scent',1,'4',1,'just',1,'june',1,'jealous',1,'saddle-bag',1,'catch',1,'shook',1);
    my %tagCounts = ('/PPL',7,'/RBR',1,'/VBD',28,'/IN',85,'/VBZ',7,'/CD',3,'/VBP',10,'/MD',8,'/PPR',7,'/PPC',45,'/NNP',22,'/DET',65,'/WDT',2,'/PRP',41,'/PPS',2,'/NN',89,'/NNS',30,'/PRPS',12,'/CC',21,'/LRB',1,'/WRB',2,'/RB',40,'/WPS',2,'/VBN',9,'/PP',24,'/TO',12,'/WP',2,'/JJS',2,'/VBG',8,'/RRB',1,'/VB',21,'/JJ',54,'/JJR',2);
    return (\$text, \%wordCounts, \%stemmedCounts, \%tagCounts);
  }

Perl

taint

use constant SERIAL_COUNT => 6;

BEGIN {
    if ($^O eq 'MSWin32' or $ENV{SKIP_TAINT})
    {
	plan skip_all => 'taint+fork broken on your platform';
    }

Perl

cock

my %data = (
	tests => [ 
		[ '+OK' => 'cock' ], 
		[ '-ERR' => 'quit' ],
	],
);

Perl

cock

# Default IN A.  Not found in /etc/hosts.
  $resolver->resolve(
    event   => "response",
    host    => "cock.and.balls",
    context => $request++,
    timeout => 30,
  );

Perl

cock

#my $response = _gen_packet_ver2( 'NRPE v2.8.1' );
  #$heap->{clients}->{ $wheel_id }->put( $response );
  $heap->{nrped}->disconnect( $id );
  $heap->{nrped}->send_to_client( $id, 'What a load of old cock-badger' );
  return;
}

Perl

cock

my %data = (
	tests => [ 
		[ '+OK' => 'cock' ], 
		[ '-ERR' => 'quit' ],
	],
);

Perl

cock

my %data = (
	tests => [ 
		[ '+OK' => 'cock' ], 
		[ '-ERR' => 'quit' ],
	],
	clients => 2,

Perl

cock

my $heap = $_[HEAP];
  $heap->{httpc}->send_to_server( "Complete and utter cock\x0D\x0A\x0D\x0A" );
  return;

Perl

cock

is( $resp->header('Content-Type'), 'text/html', 'Content-Type' );
  like( $resp->content, qr/Complete and utter cock/, 'Complete and utter cock' );
  $heap->{httpc}->shutdown();

Perl

cock

sub one     { return 1;                   }
sub two     { return 2;                   }
sub three   { return 3;                   }
sub rooster { return 'cock-a-doodle-doo'; }

1;

Perl

taint

use Carp;
use Taint qw(any_tainted);

Perl

taint

This module is used to launder data which has been tainted by using the C<-T> switch
to be in taint mode. This can be used for CGI scripts as well as command line scripts.

Perl

taint

my $ft = File::Transaction::Atomic->new(".temp$taint");
eval { $ft->linewise_rewrite('t/foo', sub { s/foo/bar/ }) };

Perl

taint

$ft->linewise_rewrite('t/foo', sub { s/foo/bar/ });
eval { $ft->commit(undef, ".old$taint") };
like( $@, '/Insecure dependency/', "tainted OLDEXT is fatal" );

Perl

taint

# There has _got_ to be a better way.  At the moment it's pitiful
# that what MakeMaker thinks of as the test code for the taint
# check checks is the most obviously tainted.

Perl

retarded

# this matches, but perlcritic seems to use retarded regexes that don't get this.
## no critic (Modules::RequireFilenameMatchesPackage)
package _;

# PODNAME: _.pm
# ABSTRACT: do not use this module directly

Perl

retarded

# Allow comparison of DateTime, Time::Piece, overloaded scalar,
# and raw number values.
#
# Overload is retarded for sometimes reversing these, what the actual hell
#
sub _compare {
  my $date1 = $_[2] ? $_[1] : $_[0];

Perl

retarded

=item

You can make some pretty stupid things happen by specifying a retarded
combination of options along with "--dumpconf".

=back

Perl

retarded

while(my $line = <HEADER>) {
        chomp($line);
        
        # ok, this is just plain retarded.  whoever thought that breaking up
        # (short!) lines like this was useful was sorely mistaken.
        $line =~ s/\s+$//;
        if($line =~ /\s*?G(tk)?Type\s*?$/) {

Perl

retarded

($addr->{type} eq "images") or croak("not an image\n");
	my $obj = $self->getobj($addr);
	my $im = $obj->{image_handle};
	# Ben Franklin was retarded
	my $cw_deg_ang = $ang * -180 / $pi;
	# image rotates inside the box:
	$im->Rotate(degrees => $cw_deg_ang);

Perl

retardretarded

reconstructed/VBN > reconstruct VBN PennPOS
    registered/VBN > register VBN PennPOS
    removed/VBN > remove VBN PennPOS
    retarded/VBN > retard VBN PennPOS
    rotated/VBN > rotate VBN PennPOS
    sized/VBN > size vvn NUPOS
    superimposed/VBN > superimpose VBN PennPOS

Perl

retarded

$_ = shift; # input CSS

    # yes YES, <SYNTAX<>blah blah is really retarded.. but oh well
    my @quoted;
    s/("  .+?  (?<!\\)" )/
        push @quoted, $1;

Perl

retarded

our %FHS_NO = (); # store list of filehandles indexed by fileno()
our %FHS_NA = (); # store list of filehandles indexed by file name
our %FHN_NO = (); # corresponding list of filenames for our filehandles indexed by fileno()
# OK .. I'm not sure, but trying to use STDIN may be totally retarded
#@LEVEL_FHS{qw( STDIN  STDOUT STDERR )} = ( \*STDIN , \*STDOUT, \*STDERR );
@FHS_NA{qw( STDIN  STDOUT STDERR )} = ( \*STDIN , \*STDOUT, \*STDERR );
@FHN_NO{(map { fileno($_); } @FHS_NA{qw( STDIN  STDOUT STDERR )})} = qw( STDIN  STDOUT STDERR );

Perl

dick

}
WriteMakefile(
    NAME                => 'Test::OpenLDAP',
    AUTHOR              => q{David Dick <[email protected]>},
    VERSION_FROM        => 'lib/Test/OpenLDAP.pm',
    ABSTRACT_FROM       => 'lib/Test/OpenLDAP.pm',
    ($ExtUtils::MakeMaker::VERSION >= 6.3002

Perl

dick

try "Any of the three types of argument is optional",
	 (call qw/ TOM $tom, RANDAL $dick, LARRY $harry /),
	      (get NAME tom, randal, larry ),
	expect qw( $tom, $dick, $harry );


try "...or repeatable -- order doesn't matter",

Perl

dick

$client->add_entity("books", { name => "Ulysses", author => "James Joyce" });
  $client->add_entity("books", { name => "Neuromancer", author => "William Gibson" });
  $client->add_entity("books", { name => "On the Road", author => "Jack Kerouac" });
  $client->add_entity("books", { name => "Ubik", author => "Philip K. Dick" });
  $client->add_entity("books", { name => "Reef", author => "Romesh Gunasekera" });

  $collection = $client->get_collection("books");

Perl

dick

test_psgi $appx->($_), sub { my ($cb) = @_; $checks->($cb, $_, $by_limits{$_}) } for @limits;

# limits fixed to '5 req/hour', users - vary
my @users = qw(Tom Dick Harry);
my %by_users = map { $_ => [ @samples ] } @users;
test_psgi $appy->($_), sub { my ($cb) = @_; $checks->($cb, $_, $by_users{$_}) } for @users;

Perl

cumshot

cummer
cumming
cums
cumshot
cunilingus
cunillingus
cunnilingus

Perl

cocksucker

cocksucked
cocksucker
cocksucking

Perl

cockcocksucker

cocks
CockSucker
cock-sucker

Perl

dickheaddamndickdildo

d1ck
damn
dick
dickhead
dildo
dildos
dink

Perl

bitch

biatch
bitch
bitcher

Perl

bitch

snatch
son-of-a-bitch
spac

Perl

gangbang

fux
fux0r
f_u_c_k
gangbang
gangbanged
gangbangs
gaylord

Perl

cunt

cunnilingus
cunt
cuntlick

Perl

cunt

cum
cunt
cunts

Perl

slut

skank
slut
sluts

Perl

slut

Skanky
slut
sluts

Perl

buttplug

butt
butthole
buttmuch
buttplug
c0ck
c0cksucker),
'carpet muncher', qw(

Perl

pussy

pussies
pussy
pussys

Perl

pussy

pussee
pussy
puuke

Perl

pisswhore

my $count = $wr->count;

# words to remove
my @these = qw(piss whore ass and non swear words);

$wr->remove(\@these);

Perl

twatwetback

twat
vittu
wank
wetback
wichser
wop
yed

Perl

piss

pimpis
piss
pissed

Perl

piss

pimmel
piss
pizda

Perl

pisswhore

my $count = $wr->count;

# words to remove
my @these = qw(piss whore ass and non swear words);

$wr->remove(@these);

Perl

dickheaddamndick

damn
dick
dickhead

Perl

dick

cuntz
dick
dild0

Perl

nigga

nigg4h
nigga
niggah

Perl

nigganazi

nazi
nigga
nigger

Perl

fatass

fanyy
fatass
fcuk

Perl

fatass

ejakulate
fatass
fcuk

Perl

cock

cnut
cock
cock-sucker

Perl

cuntcockcocksuckerdickdildo

'butthole','buttwipe','c0ck','c0cks','c0k','Carpet Muncher','cawk','cawks','Clit','cnts','cntz',
'cock','cockhead','cock-head','cocks','CockSucker','cock-sucker','crap','cum','cunt','cunts',
'cuntz','dick','dild0','dild0s','dildo','dildos','dilld0','dilld0s','dominatricks','dominatrics',

Perl

queef

puta
puto
qahbeh
queef
rautenberg
schaffer
scheiss

Perl

motherfucker

motherfucked
motherfucker
motherfuckers

Perl

motherfucker

masterbat3
motherfucker
s.o.b.

Perl

jizz

jizm
jizz
kawk

Perl

jizz

jizm
jizz
knob

Perl

orgasm

orgasims
orgasm
orgasms

Perl

orgasm

orgasim;
orgasm
orgasum

Perl

ejaculatedyke

duche
dyke
ejaculate

Perl

dyke

dominatrix
dyke
enema),

Perl

ejaculatedyke

doosh
duche
dyke
ejaculate
ejaculated
ejaculates
ejaculating

Perl

bitchbestiality

beastiality
bellend
bestial
bestiality
bi+ch
biatch
bitch

Perl

douchebag

bumboy
cracker
cumsucker
douchebag
fucktwat
ho
honky

Perl

faggot

faggitt
faggot
faggs

Perl

faggot

faggit
faggot
fagit

Perl

dickheaddildo

dickhead
dildo
dildos

Perl

dildo

dild0s
dildo
dildos

Perl

retard

rectum
retard
rimjaw

Perl

retard

rectum
retard
sadist

Perl

fucker

ass
ass-fucker
asses

Perl

fucker

bum),
'bunny fucker', qw(
butt

Perl

bastard

our $bastard = new Text::Bastardize;
sub import {

Perl

bastard

if( defined $line ){
	$bastard->charge($line);
	eval '$ret = join q//, $bastard'."->$method(\$buf);";

Perl

fuck

This is free software, licensed under:

  DO WHAT THE FUCK YOU WANT TO PUBLIC LICENSE, Version 2, December 2004

=cut

Perl

cockcocksucker

cock-sucker
cocksucker
cock-sucker

Perl

cockcocksucker

cock-sucking
cocksucker
cocksuckers

Perl

fuckdickdickheadfucking

cocksucking
cocksucking
dick-head
dickhead
fuck
fucked
fucking

Perl

cuntdick

cuming
cumming
cums
cunt
cunts
dick
dicked

Perl

pussyfaggot

nigguh
punk-ass
punkass
pussy-ass
pussy_ass
pussy\s*ass
faggot

Perl

twat

tits
turd
turds
twat
twats
wank
wanked

Perl

piss

humpers
humping
humps
piss
piss-take
pissed
pisser

Perl

nigga

mutherfucker
mutherfuckers
mutherfucking
nigga
nigger
nigguh
punk-ass

Perl

cockcocksucker

bullshitter
bullshitters
bullshitting
cock-sucker
cocksucker
cock-sucker
cock-suckers

Perl

dickheaddick

cocksucking
dick-head
dickhead

Perl

dick

cunts
dick
dicked

Perl

motherfuckerfuckerfucking

mother-fucker
mother-fuckers
mother-fucking
motherfucker
motherfuckers
motherfucking
mutha-fucka

Perl

shitcockfaggotpussy

pussy-ass
pussy_ass
pussy\s*ass
faggot
eat-shit
eat\s*shit
suck-my-cock

Perl

fucker

handjob
mother-fucker
mother-fuckers

Perl

fucker

mutha-fucka
mutha-fucker
mutha-fuckers

Perl

fuck

This is free software, licensed under:

  DO WHAT THE FUCK YOU WANT TO PUBLIC LICENSE, Version 2, December 2004

=cut

Perl

fuck

This software is Copyright (c) 2012 by Daniel B..

This is free software, licensed under:

  DO WHAT THE FUCK YOU WANT TO PUBLIC LICENSE, Version 2, December 2004

=cut

Perl

fuck

=head1 AUTHOR

Copyright (C) 2014 by Daniel Friesel E<lt>[email protected]<gt>

=head1 LICENSE

  0. You just DO WHAT THE FUCK YOU WANT TO.

Perl

fuck

'File::Find' => '0',
                                             'File::Temp' => '0'
                                           },
                       'ABSTRACT' => 'The "Do Whatever The Fuck You Want With It" license',
                       'EXE_FILES' => [],
                       'VERSION' => '0.01',
                       'PREREQ_PM' => {

Perl

fuck

use Test::More tests => 4;
use Software::License::DWTFYWWI;

is(scalar(Software::License::DWTFYWWI->name), "DWTFYWWI", "DWTFYWWI is called DWTFYWWI");
like(scalar(Software::License::DWTFYWWI->url), qr/github\.com/, "DWTFYWWI is hosted on GitHub");
is(scalar(Software::License::DWTFYWWI->meta_name), "unrestricted", "DWTFYWWI is unrestricted");
like(scalar(Software::License::DWTFYWWI->license), qr/whatever the fuck that may be/, "FREEDOM!");

Perl

dumbass

<item>
<title>[Dumbass]	Man, 46, survives jump into lion's den after trying to convert lions to Christianity (with pic)</title>
<link>http://go.fark.com/cgi/fark/go.pl?IDLink=1199487&amp;location=http://www.local6.com/news/3887764/detail.html#sillyman</link>

Perl

dumbass

<item>
<title>[Dumbass]	Man buys tiny-ass beach hut, with no toilet, for $180,000</title>
<link>http://go.fark.com/cgi/fark/go.pl?IDLink=1199035&amp;location=http://www.yorkshiretoday.co.uk/ViewArticle2.aspx%3fSectionID=55%26ArticleID=881136</link>

Perl

heroin

</item>

<item>
<title>[Scary]	Liquid heroin found in fruit juice boxes labeled &amp;quot;Hit Fruit Drink&amp;quot;</title>
<link>http://go.fark.com/cgi/fark/go.pl?IDLink=1198957&amp;location=http://apnews.myway.com//article/20041104/D864NUP80.html</link>
<description>[AP]</description>
</item>

Perl

dickheaddick

"definitely" => "for real",
    "depressed" => "down",
    "dick" => "dong",
    "dickhead" => "chief",
    "dinner" => "grub",
    "dinnertime" => "grubtime",
    "dirty" => "mingin",

Perl

bitch

"awful" => "mingin",
    "babe" => "fit bitch",
    "baby" => "bitch",

Perl

bitch

"billion" => "quillion",
    "bird" => "bitch",
    "bird" => "bitch",

Perl

cunt

"crap" => "mingin",
    "crapper" => "bog",
    "cunning" => "brainiest",
    "cunt" => "punanni",
    "curse" => "say a swear word",
    "cursed" => "sed swear words",
    "curses" => "sez swear words",

Perl

bitchslut

"slag" => "bitch",
    "slag" => "mingin bitch",
    "sleep" => "go to me julie",
    "slut" => "mingin bitch",
    "smell" => "stink",
    "smells" => "stinks",
    "smelly" => "stinkin",

Perl

bitchpussyqueer

"protestant" => "muslim",
    "protestants" => "muslims",
    "pub" => "boozer",
    "pussy" => "punanni",
    "queen" => "main bitch",
    "queer" => "batty boy",
    "queers" => "batty boys",

Perl

bitchdickwhore

"whales" => "da biggest dick in the ocean",
    "what" => "wot",
    "what's" => "wus",
    "whore" => "ho",
    "wife" => "bitch",
    "willy" => "mr biggy",
    "with" => "wiv",

Perl

twat

"truck" => "auto",
    "truly" => "for real",
    "tv" => "telly",
    "twat" => "punanni",
    "ugliest" => "mingiest",
    "ugly" => "mingin",
    "uncle" => "uncle jamal",

Perl

piss

"unsexy" => "mingiest",
    "unwind" => "chill",
    "upset" => "down",
    "urinate" => "do a piss",
    "urinated" => "did a piss",
    "urinates" => "does a piss",
    "urinating" => "doing a piss",

Perl

dickheaddick

"depressed" => "down",
    "dick" => "dong",
    "dickhead" => "chief",

Perl

dick

"very" => "well",
    "wales" => "the biggest dick in da ocean",
    "wank" => "crack one off",

Perl

shit

"sheep" => "aminal",
    "shit" => "plop",
    "shitter" => "bog",

Perl

dyke

"drunk" => "a little bit ratted",
    "dude" => "man",
    "dumass" => "chief",
    "dyke" => "feminist",
    "employee" => "main man",
    "enemies" => "emenies",
    "enemy" => "emeny",

Perl

heroin

"hello" => "allo",
    "here" => "ere",
    "here" => "in da house",
    "heroin" => "gear",
    "hi" => "allo",
    "hiphop" => "speed garage",
    "his" => "is",

Perl

faggot

"exhausted" => "wrecked",
    "explore" => "check",
    "fag" => "batty boy",
    "faggot" => "batty boy",
    "faggott" => "batty boy",
    "family" => "crew",
    "fancy" => "dig",

Perl

bastard

"barn" => "farm",
    "bastard" => "bastid",
    "bbc" => "telly",
    "beast" => "mr biggy",
    "beautiful" => "wicked",
    "because" => "coz",
    "bedsit" => "turf",

Perl

bitch

"organisation" => "crew",
    "other" => "udder",
    "paddy" => "muslim",
    "partner" => "bitch",
    "peep" => "check",
    "penis" => "dong",
    "penises" => "mr biggies",

Perl

bitch

push @params, "+define+${def}${defvalue}";
	}
    }
    # Put all libexts on one line, else NC-Verilog will bitch
    my $exts="";
    foreach my $ext ($self->libext()) {
	$exts = "+libext" if !$exts;

Perl

shit

package shit;
{
  $shit::VERSION = '0.02';
}

#ABSTRACT: just use stuff

Perl

cunt

my $VAR1 = {
            "number" => 288,
            "text" => "There once was a priest from Morocco \nWho's motto was really quite macho \nHe said \"To be blunt \nGod decreed we eat cunt. \nWhy else would it look like a taco?\"",
            "rating" => 42
    };

Perl

slut

skyways slack slain slash slashed slave slayer sleaze sleazy sledge sleeps
  sleighs sleight slew slews slider slight slimmed slimy sling slippage
  slipped slipping slob slobby slosh slothful slovaks slow sluggard slugger
  slugging slum slunk slurped slurred slut sly smacks small smartly smash
  smashed smeared smell smelting smock smoke smuggled smugly snack snacked
  snags snapped snarl snatch sneak sneeze snide snipe snippet snob snook
  snooze snorer snorts snowbank snowman snowmen snowy snuggle soaked soap

Perl

pussy

ps psalm psi psych pt pu pub pubic pubs puck pucker puddle pudgy puff puffs
  puffy pug puke pull pulls pulp pulse puma pump pumps pun punch punish punk
  punks punky puns punt punts puny pup pupil puppy pure purge purr purse pus
  push pushy pussy put puts putt putty puzzle pv pvc pw px py pygmy pyre
  pyrex pz q q&a q's qa qb qc qd qe qed qf qg qh qi qj qk ql qm qn qo qp qq
  qqq qqqq qr qrs qs qt qu quack quad quail quake quarry quart queasy queen
  query quest queue quick quiet quill quilt quinn quip quips quirk quit quite

Perl

dyke

due duel duet duff duffy dug dugan duke dull dully dulse duly duma dumb
  dummy dump dumpy dun dunce dune dung dunham dunk dunlop dunn dupe durer
  dusk dusky dust dusty dutch duty dv dw dwarf dwell dwelt dwight dwyer dx dy
  dyad dye dyer dying dyke dylan dyne dz e e'er e's ea each eagan eager eagle
  ear earl earn earth ease easel east easy eat eaten eater eaton eave eb ebb
  eben ebony ec echo eclat ecole ed eddie eddy eden edgar edge edgy edict
  edify edit edith editor edna edt edwin ee eee eeee eel eeoc eerie ef efface

Perl

pussy

proof prop propyl prose proud prove prow prowl proxy prune pry ps psalm
  psi psych pt pta pu pub puck puddly puerto puff puffy pug pugh puke pull
  pulp pulse puma pump pun punch punic punish punk punky punt puny pup
  pupal pupil puppy pure purge purl purr purse pus pusan pusey push pussy
  put putt putty pv pvc pw px py pygmy pyle pyre pyrex pyrite pz q q's qa
  qatar qb qc qd qe qed qf qg qh qi qj qk ql qm qn qo qp qq qqq qqqq qr qrs
  qs qt qu qua quack quad quaff quail quake qualm quark quarry quart quash

Perl

pussyqueer

psalm pseud pshaw psoas pssst psych pubes pubic pubis pucks pudgy puffs
puffy puked pukes pukka pulls pulps pulpy pulse pumas pumps punch punks
punky punny punts pupae pupal pupas pupil puppy puree purer purge purls
purrs purse purty pushy pussy putts putty pygmy pylon pyres pyxie qophs
quack quads quaff quail quais quake qualm quals quark quart quash quasi
quays queen queer quell query quest queue quick quids quiet quiff quill
quilt quint quips quipu quire quirk quirt quite quits quoin quoit quota

Perl

dildo

dells delta delve demit demon demos demur denim dense dents depot depth
deque derby desex desks deter deuce devil dewed dewey dhows dials diary
diazo diced dicer dices dicey dicks dicky dicot dicta dictu dicut diddy
didos didot didst diems diest dieth diets digit diked dikes dildo dills
dilly dimer dimes dimly dinar dined diner dines dingo dings dingy dinks
dinky dints diode dippy dipso direr dirge dirks dirts dirty disco discs
dishy disks ditch ditto ditty divan divas dived diver dives divot divvy

Perl

bitchwhore

# sexist terms

bitch
whore

# telling someone to get lost

Perl

piss

eat-poop
smell-farts
half-assed
piss--face
piss--ass
poop--face
piss-drink

Perl

nigga

nigger

We can rewrite it as:
 nigga
 nigguh
 niggah

Perl

dickfaggotpussy

punk-ass
pussy-ass
faggot
dick-less

# expletives (like bloody)

Perl

motherfucker

. sprintf("%-.3f seconds).", $proc->{timeout})
		  . " Killing process.");

	# kill the motherfucker!
	unless (CORE::kill(9, $pid)) {
		$_log->warn("[process $pid]: Unable to kill process: $!");
	}

Perl

motherfucker

check_dates => 1,
        @_
    );
    # Seriously, English? Do you speak it motherfucker?
    $args{state} = 'close' if $args{state} eq 'closed';

    my @indices = ();

Perl

motherfucker

$proc->{stderr} .= ";Execution timeout.";
	
	# kill the motherfucker!

	unless (CORE::kill(9, $pid)) {
		$self->log->warn("[process $pid]: Unable to kill process: $!");

Shell

taint

#
# Runs all tests (or those starting with prefix),optionally in taint mode

Shell

taint

if [ "$1" = "-T" ]; then
   taint="-T -I../lib -I."
   shift

Shell

taint

#!/bin/sh

WEBDIR=/home/jm/webmake.taint.org

VERS=`./build/get_version` ; export VERS
# ./build/update_devel

Perl

kill yourself

my $self = shift;

  print "$self->{name} just died.\n";
  # kill yourself
  $self->{world}->kill($self->{id});
  }

Perl

anal

noun red|dye|number-9 Sun|IPC|manuals waffle-house|grits yoo-hoo
noun dog|balls seagull|puke cat|bladders pus urine|samples
noun squirrel|guts snake|assholes snake|bait buzzard|gizzards
noun cat-hair-balls rat-farts pods armadillo|snouts entrails
noun snake|snot eel|ooze slurpee-backwash toxic|waste Stimpy-drool
noun poopy poop craptacular|carpet|droppings jizzum cold|sores anal|warts

HTML

taint

A colon-separated list of directories in which to look for Perl library
files before looking in the standard library and the current
directory.  If PERL5LIB is not defined, PERLLIB is used.  When running
taint checks (because the script was running setuid or setgid, or the

<A HREF="perlrun.htm#perlrun_t_0">-T</A>
 switch was used), neither variable is used.  The script should

Perl

fuckfuck it

# $self->channel is nu het huidige channel...
            }
            elsif ($child->{class} eq 'image') {
                # fuck it, toch nog geen X-interface
                next;
            }
            elsif ($child->{class} eq 'item') {

Perl

orgasm

EOF

my $orgasm = $ENV{CORO_JIT} || "y";
$orgasm = prompt ("Try to use the JIT compiler, if available?", $orgasm);
$DEFINE .= " -DCORO_JIT=1" if $orgasm =~ /[yY]/;

Perl

dickdyke

if ( $target == $sock ) {
            log_error("$$ performing the Dick Van Dyke shuffle\n");
            # Mary Poppins, step in time

Perl

dickdyke

log_error("$$ gor blimey Mary Poppins, I can't move ($!)\n");
                barf("$$ Dick Van Dyke exception! ($!)\n");
            }

Perl

dyke

my @proper_names = (
    "Keith",            "Leigh-Williams",       "McCarthy",
    "O'Callaghan",      "St. John",             "von Streit",
    "van Dyke",         "ap Llwyd Dafydd",      
    "al Fayd", 
    "el Grecco",        #"ben Gurion", # Can't use -- could be Ben as in Benjamin.
    "da Vinci",

Perl

fuckdickdyke

{
	my $obj = Word::Anagram->new;
	my $word = 'LeNo';
	my @words = qw(ARCO	ARPA	Acta	Adam	Ajax	Al's	Alan	Alec	Aler	Alex	Alfa	Amos	Andy	Anna	Anne	Avis	Aviv	Avon	Bali	Benz	Bern	Bert	Bess	Blvd	Boer	Bohr	Bonn	Borg	Bose	Bryn	Budd	Burt	CACM	Cain	Capt	Carl	Chad	Chen	Clio	Cohn	Corp	Cree	Cuba	Dade	Dali	Daly	Dane	Dave	Davy	Dept	Dion	Dora	Doug	Dyke	Earp	Edna	Elba	Ella	Emma	Enos	Eric	Erie	Erik	Eros	Ewen	Ezra	FAQs	Falk	Fess	Finn	Fisk	Fran	Frau	Fred	Frey	Fuji	Gail	Gary	Gaul	Gogh	Gris	Guam	Gwen	Hans	Hera	Herr	Hess	Hopi	Howe	Huck	Huey	Hugh	Hugo	Hume	IUDs	Igor	Inca	Indy	Iowa	Iraq	Irma	Ivan	Jake	Jane	Java	Jeff	Jews	Joan	Jodi	Jody	Joel	Joes	Jose	Jove	Juan	Jude	Judy	Juno	Kant	Karl	Kate	Kent	Kiel	Kiev	Kirk	Klan	Knox	Koch	Kong	Kris	Kurd	Kurt	Kyle	LIFO	Laos	Lars	Leon	Levi	Lima	Lisa	Liss	Lois	Lola	Lucy	Luke	Luna	Lynn	Lyon	MIGs	MIMD	Mach	Marx	Mawr	Maya	Mick	Mimi	Mira	Muir	NASA	NATO	NCAA	NOAA	NYSE	NaCl	Nash	Nate	Nero	Nile	Nina	Noah	Noel	O'Er	OK's	OPEC	Olaf	Oleg	Olga	Oman	Opel	Oslo	Otto	Ovid	Owen	Paul	Penn	Peru	Pete	Phil	Pisa	Pitt	Pius	Polk	RISC	ROTC	RSVP	Rand	Rhea	Ritz	Rome	Rosa	Ross	Roth	Roxy	Rudy	Russ	Ruth	Ryan	SCSI	SIMD	SMSA	SPSS	Salk	Sara	Saud	Scot	Sikh	Siva	Skye	Slav	Stan	Styx	Suez	Taft	Tara	Tate	Tess	Thai	Thor	Tims	Tito	Todd	Togo	Toni	Toto	USAF	USDA	USPS	USSR	Ursa	VLSI	Vail	Vega	Venn	Vera	Vern	Viet	Waco	Walt	Wang	YMCA	YWCA	Yale	Yuba	Yuri	Yves	Zeus	Zion	afro	ahem	ahoy	arty	ashy	assn	berg	bldg	boas	bock	bogy	bolo	bona	boxy	brad	burg	cams	cant	carp	cede	chaw	chic	chow	chub	chug	ciao	clot	cloy	coda	coed	cogs	cola	coma	conk	conn	cosy	coup	craw	crud	curd	dabs	dais	dang	dank	daub	deft	deja	deli	deus	dick	diem	dill	ding	diva	doff	dolt	dorm	dour	dram	dreg	drib	drub	duce	duct	duds	duet	duff	dung	dunk	dupe	dyad	e'er	eave	eden	edgy	elan	etas	exec	fads	faun	faze	fend	fest	fete	fiat	fide	fief	fink	fizz	flak	flam	flex	floe	flog	flub	flue	flux	foal	fops	foxy	fuck	funk	furl	fuzz	gala	gals	gawk	geek	geld	gent	gibe	gila	gist	glib	glim	glob	glum	glut	gnus	goof	gout	grad	grok	gunk	gyro	halo	hank	hasp	heck	heft	hewn	hick	hobo	hock	homo	hong	honk	hors	hove	hulk	ibid	ibis	iffy	info	iota	ipso	jess	jibe	jilt	jinx	jive	jock	joey	josh	joss	jowl	judo	juju	juke	jute	kcal	kegs	kelp	keno	khan	kink	lank	laud	leek	lice	lilt	loam	loge	loll	lope	lops	luge	lugs	lulu	lush	luxe	mack	magi	maul	mesa	midi	mike	mime	mini	mods	moll	moos	mope	mull	muon	murk	mush	muss	mutt	nary	neon	nosy	nova	nude	oafs	obit	oboe	ohms	oldy	omni	onus	onyx	opus	ouch	oust	ouzo	owly	perk	pert	pica	pimp	pion	pixy	plop	pock	pogo	pons	pooh	posh	pram	prep	prig	prim	prod	prof	puck	puke	puma	punk	putt	pyre	quad	quip	racy	raze	redo	reek	reps	rink	roil	rood	rube	rune	runt	ruse	rusk	saga	sari	scab	scat	semi	sept	sewn	sexy	shag	shah	shaw	shim	shoo	silo	situ	skat	skid	skit	slag	slaw	slob	sloe	slog	smut	snag	snip	snob	snub	soma	sops	sown	soya	spar	spay	spec	spew	spic	spud	sqrt	swab	swag	swat	swig	taco	tamp	taos	tarp	teal	teat	tech	tees	temp	tern	thou	tiff	tine	tofu	togs	tome	tong	tonk	tony	toot	tori	tort	tory	tote	tots	tout	tram	trig	trio	troy	tsar	tuba	tuna	tung	turk	tusk	tutu	twit	typo	urea	vain	vamp	vise	viva	vive	vivo	wads	wale	watt	wavy	welt	wham	whee	whet	whig	whir	whoa	whop	wimp	wino	winy	wive	wold	wops	yaks	yang	yawl	yaws	yoga	yogi	yolk	yore	yowl	yule	zags	zeta	zing	zips );
	my $anag = $obj->find_word_in($word, \@words);
	is_deeply( [ sort @$anag ], [ sort qw(Leon Noel) ] , 'find_word_in');

Perl

dyke

plus "son (daughter) of" etc. in various languages, e.g.:

    VON STREIT          von Streit
    VAN DYKE            van Dyke
    AP LLWYD DAFYDD     ap Llwyd Dafydd
etc.

Perl

dyke

plus "son (daughter) of" etc. in various languages, e.g.:

    VON STREIT          von Streit
    VAN DYKE            van Dyke
    AP LLWYD DAFYDD     ap Llwyd Dafydd
    etc.

Perl

dyke

plus "son (daughter) of" etc. in various languages, e.g.:

    VON STREIT          von Streit
    VAN DYKE            van Dyke
    AP LLWYD DAFYDD     ap Llwyd Dafydd
etc.

Perl

ejaculate

VolumePills.com - Ejaculate more sperm than ever before.

Perl

ejaculate

<head>
<title>VolumePills.com - Ejaculate more sperm than ever before.</title>
</head>

Perl

heroin

<tr><td><span style="font-weight:bold;color:#f8f">1839.html</span></td><td>./?le=cc8456a913b26eb7364e4e9a94348d04&amp;sux=1839</td></tr>
    <tr><td colspan="2" style="height:1em"></td></tr>
    <tr><td colspan="2"><span style="font-weight:bold;color:#088">/</span><span style="font-weight:bold;color:#088">/</span><span style="font-weight:bold;color:#880">p</span><span style="font-weight:bold;color:#800">[</span><span style="font-weight:bold;color:#080">@</span><span style="font-weight:bold;color:#008">class</span><span style="font-weight:bold;color:#88f">=</span><span style="font-weight:bold;color:#808">&#39;qt&#39;</span><span style="font-weight:bold;color:#800">]</span><span style="font-weight:bold;color:#800">[</span><span style="font-weight:bold;color:#848">1</span><span style="font-weight:bold;color:#800">]</span><span style="font-weight:bold;color:#088">/</span><span style="font-weight:bold;color:#008">text()</span></td></tr>
    <tr><td><span style="font-weight:bold;color:#f8f">2486.html</span></td><td>&lt;R`:#heroin&gt;&nbsp;Is&nbsp;this&nbsp;for&nbsp;recovery&nbsp;or&nbsp;indulgence?</td></tr>
    <tr><td><span style="font-weight:bold;color:#f8f">1839.html</span></td><td>&lt;maff&gt;&nbsp;who&nbsp;needs&nbsp;showers&nbsp;when&nbsp;you&#39;ve&nbsp;got&nbsp;an&nbsp;assortment&nbsp;of&nbsp;feminine&nbsp;products</td></tr>
    <tr><td colspan="2" style="height:1em"></td></tr>
    <tr><td colspan="2"><span style="font-weight:bold;color:#088">/</span><span style="font-weight:bold;color:#088">/</span><span style="font-weight:bold;color:#880">tr</span><span style="font-weight:bold;color:#800">[</span><span style="font-weight:bold;color:#848">2</span><span style="font-weight:bold;color:#800">]</span><span style="font-weight:bold;color:#088">/</span><span style="font-weight:bold;color:#880">td</span><span style="font-weight:bold;color:#800">[</span><span style="font-weight:bold;color:#080">@</span><span style="font-weight:bold;color:#008">class</span><span style="font-weight:bold;color:#88f">=</span><span style="font-weight:bold;color:#808">&#39;footertext&#39;</span><span style="font-weight:bold;color:#800">]</span><span style="font-weight:bold;color:#800">[</span><span style="font-weight:bold;color:#848">1</span><span style="font-weight:bold;color:#800">]</span><span style="font-weight:bold;color:#088">/</span><span style="font-weight:bold;color:#008">text()</span></td></tr>

Perl

cocaineheroin

<td valign="top" bgcolor="#FFFFFF" width="80%">


				producer of limited amounts of synthetic drugs and synthetic precursor chemicals; major consumer of Southwest Asian heroin, Latin American cocaine, and synthetic drugs; money-laundering center


</table>

Perl

heroin

use parent 'Games::Zumbis::L10N';
%Lexicon = (
    'Erro carregando a fonte' => 'Error loading font',
    'Aperte 1 para Heroi, 2 para Heroina ou enter para continuar!' => 'Press 1 for Hero, 2 for Heroin, or Enter to continue!',
    'Voce sobreviveu por [_1] segundos!' => 'You survived for [_1] seconds!',
    'E matou [quant,_1,zumbi]!' => 'And killed [quant,_1,zombie]!',
    'Mortes:' => 'Kills:',

Perl

heroin

Converts the value into titlecase.

	{{ "500 kilos of heroin found"|title }} {# 500 Kilos Of Heroin Found #}

=head3 Bugs and Differences to Django

Perl

douchebag

has 'insults'     => ( is => 'ro', isa => 'ArrayRef', default => sub { [
	'idiot',
	'wanker',
	'douchebag',
	'moron',
	'asshat',
	'jackass'

Perl

fentanyl

unilook etouf
    unilook euphon
    unilook fentan
    unilook fentanyl
    unilook /glob
    unilook gw
    unilook gwen

C

heroin

"hernia",
	"hero",
	"heroic",
	"heroin",
	"hey",
	"heyday",
	"hick",

Perl

retarded

undef $memory;

my $newmemory = CPU::Emulator::Memory->new(file => 'newfile.ram');
ok($newmemory->peek(0) == 1, "RAM can be initialised correctly from a file");

# because Win32 is retarded, see RT 62375
ok(unlink('newfile.ram'), "newfile.ram deleted");

Perl

retarded

our %FHS_NO = (); # store list of filehandles indexed by fileno()
our %FHS_NA = (); # store list of filehandles indexed by file name
our %FHN_NO = (); # corresponding list of filenames for our filehandles indexed by fileno()
# OK .. I'm not sure, but trying to use STDIN may be totally retarded
#@LEVEL_FHS{qw( STDIN  STDOUT STDERR )} = ( \*STDIN , \*STDOUT, \*STDERR );
@FHS_NA{qw( STDIN  STDOUT STDERR )} = ( \*STDIN , \*STDOUT, \*STDERR );
@FHN_NO{(map { fileno($_); } @FHS_NA{qw( STDIN  STDOUT STDERR )})} = qw( STDIN  STDOUT STDERR );

Perl

retarded

# would want to see the 401 error
    my @response = split $NL, $response;

    # TODO This condition is moderately retarded
    if (   $code == $CODE_INVALID_ENUM or
         ( $code == $CODE_INVALID_ENUM and $#response > 0)) {
      my ($rcode, $rresponse) = $self->_process;

Perl

retarded

$x
        }

# Parse::RecDescent is retarded in this one case: if a subrule fails, it
# gives up the entire rule. This is a stupid way to get around that.
rtype: rtype2 | rtype1
rtype1: TYPE star(s?)

Perl

retarded

$self->{video} = MPEG::Info::Video->new();
    # $self->{system} = MPEG::Info::System->new();
    
    ## this hyphen stuff is kind of retarded :)
    ## doesn't this date back to some perl4 thing?
    $self->handle( $self->{-file} );

Perl

retarded

},

	/**
	 * Disable the retarded hover effects they assume we want (and which
	 * cause IE to barf, and seems to slow things down)
	 */
	enterHover:	Prototype.emptyFunction,

Perl

retarded

$x
        }

# Parse::RecDescent is retarded in this one case: if a subrule fails, it
# gives up the entire rule. This is a stupid way to get around that.
rtype: rtype2 | rtype1
rtype1: TYPE star(s?)

Perl

retarded

#
  # There are two ways to limit in Oracle, one vastly faster than the other
  # on large resultsets: https://decipherinfosys.wordpress.com/2007/08/09/paging-and-countstopkey-optimization/
  # However Oracle is retarded and does not preserve stable ROWNUM() values
  # when called twice in the same scope. Therefore unless the resultset is
  # ordered by a unique set of columns, it is not safe to use the faster
  # method, and the slower BETWEEN query is used instead

Perl

retarded

[13:35] <@mst> well, except not use stored procedures on mysql at all
[13:35] <@mst> if you need stored procedures, get yourself a proper database
[13:35] <metaperl_> mst so what is problematic about MySQL's stored procs?
[13:35] <@mst> erm, the API is RETARDED
[13:35] <@mst> you're having to CALL and SELECT as two separate statements
[13:36] <@mst> also, they're not particularly stable and fail at a lot of edge cases
[13:36] <@mst> but really, if you're needing stored procedures at all

Perl

retarded

<HR><BR>

        <p>The file you were looking for is not here, we must have
          deleted it - or you just might be mentally retarded</p>
      </TMPL_IF>
      <TMPL_IF NAME="500">
        <H1>Error 500: Internal Server Error</H1>

Perl

retarded

sub load {
   my $self = shift;

   # IF WE ARE BEING RETARDED
   if( ! $self->abs_path and ! $self->id ){
      confess("There is no id or abs_path set, can't load()");  
   }

Perl

retarded

return $value->clone(@clone_args);
    } else {
        croak "Cannot recursively clone a retarded object $value (" . overload::StrVal($value) . ") in " . $args{attr}->name . ". Try something better.";
    }
}

Perl

dildo

Goodgulf glanced at Dildo, who nodded and casually flipped a small,
shining object into Frito's lap. It was a ring.

Perl

dildo

"Congratulations," said Dildo somberly. "You've just won the booby
prize"... };

Perl

dildo

sip Wellington realist Orion councilman nearest sang sue traps stare urinated
hull guns garland Paine Hettie souls Rickettsia adorns gnat nurses Gunnar
Wu lengthwise teared sorer canons kin Erato generalities Dugan alert Ithaca
unrolls sorer armload slurp dons bellhop Inman ager heater dildo Reese
Lin origin adorned loins emptily amino Estes cognac slops elite rollers
sensual Morrill Abe puppets attains Artie passiveness talents tub doubleton merit
sense Aprils saunter Somalis toast revises noble splines anion confuses oval

Perl

retard

spell Santo sigh Gaulle stall important toys ager origin anoints noons
depositing tissues scrap dial raspberry uncle pot dequeue cup store battlegrounds
glares raise negator desist lads wales retains tied bride slope airer
Donner dips diet sure dry node deserted panel Anton Erne retard
laid sit Walt suits rubs Vera incites aster currying foal stall
iterating leader start ran Nugent Asian dogs beret dune distrust cab
Estes rebelliousness spout duet answerers Orleans Lotte mid Laotian redo enjoin

Perl

retard

size => 'fat',
                                    type => 'retard' },
                                  { name => 'alice',

Perl

retard

vraiment en couple. Ah bon ?
VDM</text><commentable>1</commentable></item><item
id="238102"><author>sottise</author><categorie>inclassable</categorie><date>2008-10-09T03:22:32+02:00</date><agree>9906</agree><deserved>854</deserved><commentaires>60</commentaires><text>Aujourd'hui,
j'ai mes règles et je suis en retard pour aller travailler. Je prends
une serviette hygiénique, enlève la partie collante et la pose à
l'envers sur le lit. Au moment de l'utiliser, introuvable ! Mes
collègues l'ont retrouvée : elle était collée sur mes fesses. Déjà 2h

Perl

fucker

mod => { color => {options => [[red => 1], [blue => 2], [yellow => 3], [pink => 4]] },
                 size  => {comment => '(unknown)', value => undef, force => 1 } ,
                 sex   => {label => 'glass EYE fucker', options => [[1,2],[3,4],[5,6]] },
               },
    },