$num_replacements = $_ =~ s/<I>/<italic>/g;