Help for this page

Select Code to Download

Select or download this
```
#!/usr/bin/perl

...
}

exit( 0 );
```

Select or download this

print$_ for(map{chr($_)}split(/\s+/,join(/\B?:\w+[^\s+]/,<DATA>)));
__DATA__
67 111 100 101 32 80 101 114 108