# lol perl code

**URL:** <https://forums.speedlife.net/t/lol-perl-code/15148>\
**Category:** NYSpeed Off Topic\
**Created:** [July 27, 2006, 8:01pm UTC](https://forums.speedlife.net/t/lol-perl-code/15148 "2006-07-27T20:01:36Z")\
**Posts on this page:** 15\
**Page:** 1

<div class="post-metadata">

**Author:** ![LZ1](https://avatars.discourse-cdn.com/v4/letter/l/7ab992/32.png) [@LZ1](https://forums.speedlife.net/u/LZ1)\
**Post date:** [July 27, 2006, 8:01pm UTC](https://forums.speedlife.net/t/lol-perl-code/15148/1 "2006-07-27T20:01:36Z")

</div>

#!/lose/ur/virginity

# 

# h0no c4n c0de.

# 

# greetz to zone-h forum for the help!!!

#g0t t0 f1nd m3 a l4dy…  
$lady = ‘drunk’ if(open(GIRL, ‘/usr/bin/pub’));  
$lady = ‘slut’ if open(BITCH, ‘/home/street/corner’)&&use protection;

#th1z alw4yz w0rkz.  
chomp my $dick = (\<BITCH\>) unless $lady ne ‘slut’;

if(!($dick exists in @mouth)){  
#sh3’s just pl4y1ng h4rd t0 g3t.  
print GIRL “my what nices eyes you have…”;  
if(\<\> eq ‘all the better to glar into your eyes while I’.  
‘stroke you off’){  
$lady = ‘slut’;  
$pants = ‘off’;  
foreplay();  
}  
}

# #w41t t1ll sh3 g3tz a l04d 0f th1z! print GIRL '8==========

=====D’;

#th4tz wh4t 3y3 th0ught b1tch.  
if(($face = \<\>) eq ‘8D’){ sex($lady, ‘in car’); }  
elsif(($responce = \<\>) eq ‘ive seen bigger’){  
$lady = ‘pornstar’;  
use camera;  
sex($lady, ‘out\_side’);  
}

#FUCK Y0U B1TCH!  
else{  
open(D13B1TCH, “\>date/rape”) || kill $lady;  
print D13B1TCH $roofie;  
}

sub sex{  
($lady, $location) = @\_;

# /##\ \<-- sup3r h0no ascii sk1llz

```
goto CAR if ($location =~ /()-()&gt;/); #(itz a c4r y0u fuckz) 
goto OUTSIDE if ($location =~ / /);
else{
	print "s3x h3r3?????

```

";  
$lady = ‘superfreakyslut’;  
}

```
#fuck th1z b1tch
sleep $with_her;
exit;

CAR;
#g0t t0 g3t 4t th4t pussy!
open(DOORS, 'side/of/car') or chop($window) if $desperate;

OUTSIDE;
($thing, $todo) = foreplay();

if($todo eq 'to party'){ exit; }
else{

	@positions = (6,9);

	#g0 nutz
	sort(@positions);
	foreach(@positions){
		#sin until your done.
		$done = sin($_) until $done;
	}

exit if($done);
else{
	#sw1tch p0s1t10nz 4nd h1t th4t pussy.
	reverse(@positions);
	&sex($lady, 'here');
}

```

}

sub foreplay {  
open(INTERESTINGSTUFF, “below/head/above/vigina”) or  
`unzip dress*`;

```
#3y3 l0v3 t1tz
($shirt, $bra, $boobs) = (&lt;INTERESTINGSTUFF&gt;)[0..2];

#H3y h0n, 3y3 th1nk 3y3 n0t1c3d y0u 4r0und
if(exists($shirt)){

	#S0rry 4b0ut s4l4d cr34m, 3y3 d1dn't kn0w 
	#1t c4m3 0ut l1k3 th4t
	#1t'll b3 w4sh3d 1n a j1ffy
	open(SHIRT, "cute-silk-number");

	#H3y b4b3, w4nn4 kn0w wh4t l00kz g00d 0n my fl00r?
	unlink($bra . $one_hand);

	#s41n1ty ch3ck
	if (!exists($boobs)){
		#0h g0d fuck m3, TH4TS why h1s 4ss h0l3'z r3d!
		alarm(1);

		print STDOHSHIT "ITZ A MAN!GOATSECX ALEERRTT";

		close(SHIRT) && die;
	}

	#th3y'r3 m1n3 n0w!
	my $boobs;
	study $boobs;

	#th3y n33d a t41nt ch3ck?
	$hands = ($boobs =~ /(.)(.)/);

	#4ll th3m sm4ll th1ngz add t0 p3rf3ct10n
	while ($boobs =~ s/.*(nipple|raised_area|tatoo).*/g) {
	    $sensations .= $1;
	}

	seek BOOBS, $sensations,0;
	return($sensations, 'done');

#1f $sh1rt d03sn't ex1st
} else{
	$her = 'drunk';
	while(not exists($seman)){ $you = pack 'CU','NT'; }
		return($her,'to party');
	}
}

```

}

---

<div class="post-metadata">

**Author:** ![Bacon](https://yyz2.discourse-cdn.com/flex034/user_avatar/forums.speedlife.net/bacon/32/7230_2.png) [@Bacon](https://forums.speedlife.net/u/Bacon)\
**Post date:** [July 27, 2006, 10:17pm UTC](https://forums.speedlife.net/t/lol-perl-code/15148/2 "2006-07-27T22:17:02Z")

</div>

Hahaha.

---

<div class="post-metadata">

**Author:** ![taurusho](https://yyz2.discourse-cdn.com/flex034/user_avatar/forums.speedlife.net/taurusho/32/7184_2.png) [@taurusho](https://forums.speedlife.net/u/taurusho)\
**Post date:** [July 31, 2006, 10:42am UTC](https://forums.speedlife.net/t/lol-perl-code/15148/3 "2006-07-31T10:42:44Z")

</div>

roffle

---

<div class="post-metadata">

**Author:** ![Pass\_McGass](https://yyz2.discourse-cdn.com/flex034/user_avatar/forums.speedlife.net/pass_mcgass/32/7616_2.png) [@Pass\_McGass](https://forums.speedlife.net/u/Pass_McGass)\
**Post date:** [July 31, 2006, 11:30am UTC](https://forums.speedlife.net/t/lol-perl-code/15148/4 "2006-07-31T11:30:45Z")

</div>

im really glad that I didnt laugh once at that.

---

<div class="post-metadata">

**Author:** ![SkunkApe](https://yyz2.discourse-cdn.com/flex034/user_avatar/forums.speedlife.net/skunkape/32/7575_2.png) [@SkunkApe](https://forums.speedlife.net/u/SkunkApe)\
**Post date:** [July 31, 2006, 11:45am UTC](https://forums.speedlife.net/t/lol-perl-code/15148/5 "2006-07-31T11:45:47Z")

</div>

:gay2:

🙂

---

<div class="post-metadata">

**Author:** ![fbrendan](https://avatars.discourse-cdn.com/v4/letter/f/d26b3c/32.png) [@fbrendan](https://forums.speedlife.net/u/fbrendan)\
**Post date:** [July 31, 2006, 11:54am UTC](https://forums.speedlife.net/t/lol-perl-code/15148/6 "2006-07-31T11:54:07Z")

</div>

> [@Pass McGrass](#):
>
> im really glad that I didnt laugh once at that.

me too.

Justin you _are_ a nerd 😛

---

<div class="post-metadata">

**Author:** ![Daddie](https://yyz2.discourse-cdn.com/flex034/user_avatar/forums.speedlife.net/daddie/32/7621_2.png) [@Daddie](https://forums.speedlife.net/u/Daddie)\
**Post date:** [July 31, 2006, 1:35pm UTC](https://forums.speedlife.net/t/lol-perl-code/15148/7 "2006-07-31T13:35:14Z")

</div>

Don’t hate that we make more money than you 🙂

---

<div class="post-metadata">

**Author:** ![66impalass](https://yyz2.discourse-cdn.com/flex034/user_avatar/forums.speedlife.net/66impalass/32/7429_2.png) [@66impalass](https://forums.speedlife.net/u/66impalass)\
**Post date:** [July 31, 2006, 1:39pm UTC](https://forums.speedlife.net/t/lol-perl-code/15148/8 "2006-07-31T13:39:49Z")

</div>

i dont get it and you dont make more money than me, i heart government subsidized contracts

---

<div class="post-metadata">

**Author:** ![Daddie](https://yyz2.discourse-cdn.com/flex034/user_avatar/forums.speedlife.net/daddie/32/7621_2.png) [@Daddie](https://forums.speedlife.net/u/Daddie)\
**Post date:** [July 31, 2006, 1:57pm UTC](https://forums.speedlife.net/t/lol-perl-code/15148/9 "2006-07-31T13:57:25Z")

</div>

I don’t know about you, but I know about skunky 🙂

and how sure are you that I don’t make more money than yoU? :eyebrow:

---

<div class="post-metadata">

**Author:** ![Pass\_McGass](https://yyz2.discourse-cdn.com/flex034/user_avatar/forums.speedlife.net/pass_mcgass/32/7616_2.png) [@Pass\_McGass](https://forums.speedlife.net/u/Pass_McGass)\
**Post date:** [July 31, 2006, 2:34pm UTC](https://forums.speedlife.net/t/lol-perl-code/15148/10 "2006-07-31T14:34:21Z")

</div>

You live and work in NYC. I would HOPE that you make more money than me. How much is it for an apt. there, anyway?

---

<div class="post-metadata">

**Author:** ![Daddie](https://yyz2.discourse-cdn.com/flex034/user_avatar/forums.speedlife.net/daddie/32/7621_2.png) [@Daddie](https://forums.speedlife.net/u/Daddie)\
**Post date:** [July 31, 2006, 2:44pm UTC](https://forums.speedlife.net/t/lol-perl-code/15148/11 "2006-07-31T14:44:55Z")

</div>

Studio?

In upper east probably around 500K

I don’t live in NYC 🙂

---

<div class="post-metadata">

**Author:** ![Pass\_McGass](https://yyz2.discourse-cdn.com/flex034/user_avatar/forums.speedlife.net/pass_mcgass/32/7616_2.png) [@Pass\_McGass](https://forums.speedlife.net/u/Pass_McGass)\
**Post date:** [July 31, 2006, 3:01pm UTC](https://forums.speedlife.net/t/lol-perl-code/15148/12 "2006-07-31T15:01:57Z")

</div>

(Insert picture of NYC)  
“^Where I live, where I love, where I work^”

So youre a liar? 😛

---

<div class="post-metadata">

**Author:** ![SkunkApe](https://yyz2.discourse-cdn.com/flex034/user_avatar/forums.speedlife.net/skunkape/32/7575_2.png) [@SkunkApe](https://forums.speedlife.net/u/SkunkApe)\
**Post date:** [July 31, 2006, 3:10pm UTC](https://forums.speedlife.net/t/lol-perl-code/15148/13 "2006-07-31T15:10:19Z")

</div>

well i would hope you make more money than me…hawaiian’s always make good money 😛

j/p… anywho…yea i make shit money here …buffalo sucks for my field…which is why i am moving in a few months 🙂 which you already know

---

<div class="post-metadata">

**Author:** ![DrDoS](https://avatars.discourse-cdn.com/v4/letter/d/ccd318/32.png) [@DrDoS](https://forums.speedlife.net/u/DrDoS)\
**Post date:** [August 2, 2006, 12:32am UTC](https://forums.speedlife.net/t/lol-perl-code/15148/14 "2006-08-02T00:32:24Z")

</div>

rofl at the man sex

---

<div class="post-metadata">

**Author:** ![66impalass](https://yyz2.discourse-cdn.com/flex034/user_avatar/forums.speedlife.net/66impalass/32/7429_2.png) [@66impalass](https://forums.speedlife.net/u/66impalass)\
**Post date:** [August 2, 2006, 5:17am UTC](https://forums.speedlife.net/t/lol-perl-code/15148/15 "2006-08-02T05:17:18Z")

</div>

> [@SkunkApe](#):
>
> well i would hope you make more money than me…hawaiian’s always make good money 😛
> 
> j/p… anywho…yea i make shit money here …buffalo sucks for my field…which is why i am moving in a few months 🙂 which you already know

I already moved, down to Tampa, look up HDR inc they i think are looking for a couple IT positions, just not here, your IT right, cause if you get a job here with my refferal i get a bonus and i will split it with you

[https://v2.projectix.com/hdr/jobboard/searchjobs.aspx?\_\_VT=ExtCan&\_\_SVRTRID=CB4354DC-F91E-40FA-991C-B3DEFA2DA72D](https://v2.projectix.com/hdr/jobboard/searchjobs.aspx? __VT=ExtCan&__ SVRTRID=CB4354DC-F91E-40FA-991C-B3DEFA2DA72D)