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