Help for this page

Select Code to Download

Select or download this

use strict;
$\=$/; 
...
redo if s/!/Y</g
}
print

Select or download this
```
use strict; 
$\=$/;
$_='';
```
Select or download this
```
s//#?=>$":}\~>\\!;/;
```
Select or download this
```
$/ =~ s//s{;};$")!{$"\\:<_!;/e;
```
Select or download this
```
s/;/$")!{$"\\:<_!/;
```

Select or download this

substr($_,-1)= $". ')!{' . $" . '\:<_!';

Select or download this
```
substr($_,-1)= ' )!{ \:<_!';
```
Select or download this
```
$_ = "#?=> :}~>\! )!{ \:<_!"
```
Select or download this
```
y{%*-.$'&(#-<}{@-~}s;
```

Select or download this

y{%\052-\056$'&(\043-\074}{\100-\176}s;

Select or download this
```
y{\043-\074}{\112-\176}s;
```
Select or download this
```
y/#):</JPac/;
```
Select or download this
```
y(;-?)[\012r-{)!]s;
```
Select or download this
```
tr/\073-\077/\012r-{)!/s;
```
Select or download this
```
tr/\074-\077/r-{)!/s;
```
Select or download this
```
tr/\074-\077/r-u/s;
or
tr(<=>?)(rstu);
```
Select or download this
```
y/T-Z[\\]^_/`a-z{|/;
y/{|}~/l-z{|}~/;
```
Select or download this
```
y/Y\\_/ehk/;
y/{}~/lno/;
```
Select or download this
```
s/!/Y</;
```

Select or download this

#!/usr/bin/perl -lw

...
y/Y\\_/ehk/;
y/{}~/lno/;
print;