Help for this page

Select Code to Download

Select or download this
```
#!/usr/bin/perl -w
use strict;
```

Select or download this

$_="Perl in a box";
for(/\S/g){
@_=(@_=>lc)
}

Select or download this
```
my($i,$k)=(0,'');
```
Select or download this
```
for(@_){
$_{$_}=$i++
}
```
Select or download this
```
undef $/;
$_=<DATA>;
```
Select or download this
```
s;\s;;g;
for(/../g){
```
Select or download this
```
my@k=/./g;
```
Select or download this
```
@k=(pop@k,@k)if($k[1]ne lc$k[1]);
```
Select or download this
```
for my $k (@k){
$k=$_{lc$k};
}
```
Select or download this
```
$k.=chr(30+pop(@k)+10*pop(@k));
```
Select or download this
```
}
```
Select or download this
```
$_=$k;
s|(.{20})|$1\n|g;
```
Select or download this
```
eval
```

Select or download this

$_=q[s;.*;94eae6e840
c2dcdee8d0cae440a0ca
...
he                x)
>>1)}$_=join'',@_;pr
int];s; |\n;;g;eval;

Select or download this

$_=q[
s;.*;94eae6e840c2dcdee8d0cae440a0cae4d840d0c2c6d6cae414;s;
...
];
s; |\n;;g;
eval;