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