$file =~ s/^.*$startstring/$startstring/s;
    $file =~ s/$endstring.*$//s;
    $file =~ s/<[^>]*>/ /g;