Select Code to Download

#!/usr/bin/perl
use strict;
...
    cp ($TMPOUT, $SCRATCH);

}

Filehandle $TMPOUT opened only for output at /usr/share/perl/5.10/File
+/Copy.pm line 200.
stat() on closed filehandle $SCRATCH at /usr/share/perl/5.10/File/Copy
+.pm line 117.

$_ =~ s/[-|\&|_|+|']/ /g;

$_ =~ s/[-|\&|_|+|']/ /g;

<c>
$_ =~ s/\W/ /g;