1
2
$date =~ "date";
print $date;

1
print date;

1
print date;

1
2
3
4
while(<STDIN>){
        shom;
        print "$_\n" if($_!~ /^$/);
}

1
2
3
4
while(<STDIN>){
        shom;
        print "$_\n" if($_!~ /^$/);
}

1
2
3
4
5
while(<STDIN>){
        shom;
        last if($_=~ /^$/);
        print "$_\n";
}

1
2
3
4
5
while(<STDIN>){
        shom;
        last if($_=~ /^$/);
        print "$_\n";
}

1
2
3
4
5
6
7
8
9
$i=<>;
while($i--)
{
        $n=<>;
        if(0==$n%2)
        {
                $n=$n/2;
                $x=$n*($n+1)*(4*$n+1)/2;
        }
 ...

1
2
3
4
$var1="perl";
$var2=100;
$var3="31/1/2012";
print "$var1 $var2 $var3 \n";

1
2
3
4
5
6
7
8
9
#!/usr/bin/perl
$chain="a";
print"$chain\n";
for($i=1;$i<10;$i++)
{
 if(($i%3)==0)
{$chain=$chain."b";
 print"$chain\n";}
 else{
 ...

1
2
3
4
5
6
7
8
9
#!/usr/bin/perl
$chain="a";
for($i=0;$i<10;$i++)
{
 if(($i%3)==0)
{$chain=$chain."b";
 print"$chain\n";}
 else{
 $chain=$chain."a";
 ...

1
2
3
4
5
6
7
8
9
#!/usr/bin/perl
$chain="a";
for($i=0;$i<10;$i++)
{
 if(($i%3)==0)
{$chain="$chain.b\n";}
 else{
 $chain="$chain.a\n";}
}

1
2
3
4
5
6
7
8
9
#!/usr/bin/perl
$chain="a";
for($i=0;$i<10;$i++)
{
 if(($i%3)==0)
{$chain="$chain."b"\n";}
 else{
 $chain="$chain."a"\n";}
}

1
2
3
4
5
6
7
8
9
#!/usr/bin/perl
for($i=0;$i<10;$i++)
{
 if($i==3||$i==4)
{
 next;
}
elsif($i==7){
last;}
 ...

1
2
3
4
5
6
7
8
9
#!/usr/bin/perl
for($i=0;$i<10;$i++)
{
 if($i==3||$i==4)
{
 next;
}
elseif($i==7){
last;}
 ...

1
2
3
4
5
6
7
8
9
#!/usr/bin/perl
for($i=0;$i<10;$i++)
{
 if($i==3||$i==4)
{
 next;
}
else if($i==7){
last;}
 ...

1
2
3
4
5
6
7
8
9
#!/usr/bin/perl
for($i=0;$i<10;$i++)
{
 if($i==3||$i==4)
{
 next;
}
else if($i==7){
last;}
 ...

1
2
#!/bin/perl
use strict;use warnings;use LWP::UserAgent;$|=1;my $OO0O0=LWP::UserAgent->new;$OO0O0->agent("\x46\x46\x20\x53\x63\x61\x6e\x6e\x65\x72\x2e");print "\x0a";print "\x2b\x2d\x2d\x2d\x2d\x2d\x2d\x2d\x2d\x2d\x2d\x2d\x2d\x2d\x2d\x2d\x2d\x2d\x2d\x2d\x2d\x2d\x2d\x2d\x2d\x2d\x2d\x2d\x2d\x2d\x2d\x2d\x2d\x2d\x2b\x0a";print "\x7c\x20\x20\x20\x20\x41\x6f\x64\x72\x75\x6c\x65\x7a\x27\x73\x20\x44\x4e\x53\x64\x69\x67\x67\x65\x72\x20\x54\x6f\x6f\x6c\x20\x20\x20\x20\x7c\x0a";print "\x2b\x2d\x2d\x2d\x2d\x2d\x2d\x2d\x2d\x2d\x2d\x2d\x2d\x2d\x2d\x2d\x2d\x2d\x2d\x2d\x2d\x2d\x2d\x2d\x2d\x2d\x2d\x2d\x2d\x2d\x2d\x2d\x2d\x2d\x2b\x0a";print "\x0a\x55\x73\x61\x67\x65\x20\x3a\x20$0\x20\x44\x6f\x6d\x61\x69\x6e\x5f\x6e\x61\x6d\x65";print "\x0a\x45\x78\x2e\x20\x20\x20\x3a\x20$0\x20\x67\x6f\x6f\x67\x6c\x65\x2e\x63\x6f\x6d";print "\x0a\x0a";my $OO000O=$ARGV[0];if(!$OO000O){exit;}my $OO0=$OO0O0->get("\x68\x74\x74\x70\x3a\x2f\x2f\x77\x77\x77\x2e\x64\x6e\x73\x64\x69\x67\x67\x65\x72\x2e\x63\x6f\x6d\x2f\x68\x6f\x73\x74\x63\x6f\x6c\x6c\x69\x73\x69\x6f\x6e\x2e\x70\x68\x70\x3f\x68\x6f\x73\x74\x3d" . $OO000O . "\x26\x6d\x61\x73\x6b\x3d\x32\x34");$OO0=$OO0->content;$OO0=~m/<b>(.*)hit\(s\)<\/b><br>/;my $OOO0O=$1;print "\x5b\x2b\x5d\x20\x54\x6f\x74\x61\x6c\x20\x68\x69\x74\x73\x20\x3a\x20$OOO0O\x0a";print "\x5b\x2b\x5d\x20\x46\x69\x6e\x64\x69\x6e\x67\x20\x41\x64\x6d\x69\x6e\x20\x66\x6f\x6c\x64\x65\x72\x73\x2e\x0a\x0a";my $OOO0=0;for($OOO0=1;$OOO0<$OOO0O;$OOO0=$OOO0+40){$OO0=$OO0O0->get("\x68\x74\x74\x70\x3a\x2f\x2f\x77\x77\x77\x2e\x64\x6e\x73\x64\x69\x67\x67\x65\x72\x2e\x63\x6f\x6d\x2f\x68\x6f\x73\x74\x63\x6f\x6c\x6c\x69\x73\x69\x6f\x6e\x2e\x70\x68\x70\x3f\x68\x6f\x73\x74\x3d" . $OO000O . "\x26\x6d\x61\x73\x6b\x3d\x32\x34\x26\x6e\x65\x74\x3d\x26\x6e\x65\x78\x74\x3d".$OOO0);$OO0=$OO0->content;while($OO0=~ m/rel="\x6e\x6f\x66\x6f\x6c\x6c\x6f\x77">(.*?)<\/a>/g){my $OO00O=$1;my $OOOO0=$OO0O0->get("\x68\x74\x74\x70\x3a\x2f\x2f".$OO00O."\x2f\x61\x64\x6d\x69\x6e\x2f");if($OOOO0->status_line=~ /200 OK/){print "\x5b\x21\x5d\x20\x68\x74\x74\x70\x3a\x2f\x2f$OO00O\x2f\x61\x64\x6d\x69\x6e\x2f\x20\x3a\x20\x41\x76\x61\x69\x6c\x61\x62\x6c\x65\x2e\x20\x3a\x29\x0a"};$OOOO0=$OO0O0->get("\x68\x74\x74\x70\x3a\x2f\x2f".$OO00O."\x2f\x61\x64\x6d\x69\x6e\x69\x73\x74\x72\x61\x74\x6f\x72\x2f");if($OOOO0->status_line=~ /200 OK/){print "\x5b\x21\x5d\x20\x68\x74\x74\x70\x3a\x2f\x2f$OO00O\x2f\x61\x64\x6d\x69\x6e\x69\x73\x74\x72\x61\x74\x6f\x72\x2f\x20\x3a\x20\x41\x76\x61\x69\x6c\x61\x62\x6c\x65\x2e\x20\x3a\x29\x0a"};$OOOO0=$OO0O0->get("\x68\x74\x74\x70\x3a\x2f\x2f".$OO00O."\x2f\x6c\x6f\x67\x69\x6e\x2f");if($OOOO0->status_line=~ /200 OK/){print "\x5b\x21\x5d\x20\x68\x74\x74\x70\x3a\x2f\x2f$OO00O\x2f\x6c\x6f\x67\x69\x6e\x2f\x20\x3a\x20\x41\x76\x61\x69\x6c\x61\x62\x6c\x65\x2e\x20\x3a\x29\x0a"};$OOOO0=$OO0O0->get("\x68\x74\x74\x70\x3a\x2f\x2f".$OO00O."\x2f\x77\x65\x62\x61\x64\x6d\x69\x6e\x2f");if($OOOO0->status_line=~ /200 OK/){print "\x5b\x21\x5d\x20\x68\x74\x74\x70\x3a\x2f\x2f$OO00O\x2f\x77\x65\x62\x61\x64\x6d\x69\x6e\x2f\x20\x3a\x20\x41\x76\x61\x69\x6c\x61\x62\x6c\x65\x2e\x20\x3a\x29\x0a"};}}

1
2
3
4
5
6
7
8
$x="5";
 
$f= $x x 3;
 
$g= $f+1;
 
print $g;
 

1
2
3
4
5
$x="5"
 
$g= $x x 3;
 
print ($g+1);

1
2
3
$x="5";
 
print $x x 3;

1
2
3
$x="5"
 
print $x x 3;

1
@c=qw(January February March April May June July August September October November December);$j=<>,print 31&$j," $c[((480&$j)>>5)-1] ",(8388096&$j)>>9,"\n" for(1..<>);

1
2
3
4
5
6
7
8
#!/usr/bin/perl -w
use strict;
use Math::BigInt;
 
my $big=Math::BigInt->new(62);
$big->bpow(10);
$big->bmul(0.1);
print $big."\n";

1
2
3
4
5
6
7
8
9
#!/usr/bin/perl -w
use strict;
use Math::BigInt;
 
 
my@array=("A".."Z","a".."z","0".."9");
foreach(@array){
        print $_."\n";
}

1
2
3
4
5
6
7
8
9
#!/usr/bin/perl -w
use strict;
use Math::BigInt;
 
 
my@array=("A.."Z","a".."z","0".."9");
foreach(@array){
        print $_."\n";
}

1
2
3
4
5
6
7
8
9
#!/usr/bin/perl
 
print "content-type: text/html \n\n"; #HTTP HEADER
 
# DEFINED STRINGS
$astring = "Rain-Drops-On-Roses-And-Whiskers-On-Kittens";
$namelist = "Larry,David,Roger,Ken,Michael,Tom";
 
# STRINGS ARE NOW ARRAYS
 ...

1
2
3
4
5
6
7
8
9
#!/usr/bin/perl
 
print "content-type: text/html \n\n"; #HTTP HEADER
 
# DEFINED STRINGS
$astring = "Rain-Drops-On-Roses-And-Whiskers-On-Kittens";
$namelist = "Larry,David,Roger,Ken,Michael,Tom";
 
# STRINGS ARE NOW ARRAYS
 ...

1
2
3
4
5
6
7
#!/usr/bin/perl
 
print "content-type: text/html \n\n"; #HTTP Header
 
@nums = (1..20);
splice(@nums, 5,5,21..25);
print "@nums";

1
2
3
4
5
6
7
8
#!/usr/bin/perl
 
print "content-type: text/html \n\n"; #HTTP HEADER
 
@coins = qw(Quarter Dime Nickel Penny);
@slicecoins = @coins[0,2];
print "@slicecoins\n";
print "<br />";