Select Code to Download

my $thisout = substr($i, 0, index($i, ".")) . ".txt"

$file =~ s/\.rpt$/.txt/i; #case insensitive
open OUTPUT, ">$file";