regexp

[solution]

damit funktionierts:

@items = split (/(href|src|url)/i, $line);
for (@items) { s/(=? *["'(])/"$1$insertdir"/ie unless (/((file|https?|gopher|ftp)://)|(mailto:|news:)/i);}
$line = join ("", @items);

rätselaufgabe:
das in einer einzigen regexp.

lg, lois