$str =~ s/(\d?)%var%(.*)/$1REPLACED$2/; [download]
In reply to Re: Regex triggering uninitialised values by jimbojones in thread Regex triggering uninitialised values by kiat