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

##</code><code>##

$str =~ s/%var%/REPLACED/;