use File::Spec::Functions qw(rel2abs abs2rel);
my $txt = rel2abs(abs2rel($file, $htmlroot), $txtroot);  # relocate
$txt =~ s/\.html$/.txt/;  # extension