[MacPerl-AnyPerl] negative lookahead xhtml tag

[allan juul]

hi

we need to replace tags like:

<img src="Some/Path" anthing="anything"> 

to:

<img src="Some/Path" anthing="anything" />


it seems so simple but i am on the verge of giving up understanding the 
negative lookahead logic.

this is how far i have come (obviously not working)

my $src = qq(<img src="Some/Path" anthing="anything">);
$src =~ s/(<img(?![^>]+\/))>/$1\/>/ig;
print $src


anyone with a clearer mind that can help on this ?

thanks!
../allan