my $F = 'FILENAME GOES HERE';
$F =~ tr`<>*%$?\x00-\x1F\"\|``d;
local *FH;
open(FH, "<$F") or die "\nCannot open file for reading - $F\n";