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