$string =~ s/(logger\s+)(\w+)(\W+)(\w+)/$1 . ("X" x length($2) . $3 . ("X" x length($4))/e;