Select Code to Download

use strict;
use warnings;
...

$here_is =~ s/%(\w+?)%/$vars{$1}/g;
print $here_is;