$var =~ s/WORD\s(\d+)/WORD (2 * $1)/;