#!/bin/bash

var=4711;

perl << 'X'
# neware this is the Perl var
$var = 13;
...
X

# now this the bash var!
echo $var;