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