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