$full_path =~ s/sub$/txt/i;