Klappt bei mir nicht.
Vielleicht fehlt die ">" und Zeile #2 muesste so sein:

($line = $line) =~ s!(?<=<plugin-data-field key="displayName") >(\d+)(?=</plugin-data-field>)!$username_icq->{$1}!e;