snippetsmania.com
Post and share your code snippets

$_ = shift;
s////g;
print;

################

while(<>) {
/^(w+)/;
print $_.',';
}

#############

if(($_ = 5)==5) {print;}

##############

$x = 7;
if (($x <=> 0)==($x=$x)) {print 'true';}
else{print 'false';}

#######################

print "Hello World" or die "trying";

######################

print eval qw(qw(qw()));

source