$str = "%tag1% went to %tag2% 
#with
$str = ~ s/\%(\S+)\%/$template{$1}/gi;