$text =~ s/<!\-\-te.+?st\-\->//gs;