#!/bin/sh

echo This is bash
i=12
echo $i

perl <<__HERE__
print "This is perl\n";
my \$i = $i;
print ++\$i . "\n";
__HERE__

echo This is bash again
echo $i