$line =~ s/<\/a>/<\/a><\/div>/;