Help for this page

Select Code to Download

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

...
}

__END__
```

Select or download this

perl -apF, -e'if($F ne$F[0]){$F=$F[0];open F,">$F"or die;select F}s/[^
+,]+//'