my $outpath = "$outdir/$title";

    $outpath =~ s/(\.[^.]*|)$/$.$1/;