$contents =~ s/^[^<form]*(?=<form)//mg;