$_ = 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()));

Yes, this is valid code.

Designed by myself, unless otherwise noted.

Crazy Perl Code

code, perl

Perl