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