in reply to strip scripts / tags + rewrite embed

ok. so no cpan modules seem to handle it outright.

it looks like i need to scrub text for tags in 1 pass, then come again and regex the flash

I'm a bit uneasy with perl and regexes (i know odd)... i've just grown custom to the python ones, where matches are objects that contain string position etc.
my $regex= qr/ <embed \s* ( [^"]*="[^"]*" (:?\s)? )+ \s* (\/)?\s*>/ixm;
should match anything i toss at it.

but now i'm unsure.... how can i loop the text with that regex without doing an endless loop ( i'll be replacing in text that will pass that test , and i can't code around that )?