#$str =~ s/(\d+?)%var%(.*)/$1REPLACED$2/;</strikeout>
As pointed out by Eimi Metamorphoumai 
$str =~ s/(\d*)%var%(.*)/$1REPLACED$2/;</strikeout>