$str =~ s/(\d?)%var%(.*)/$1REPLACED$2/;