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

##</code><code>##

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