#!/usr/bin/perl
use strict;
my $script;
my $template_variable = "templating";
while(<DATA>){
my $line = $_;
$line=~s/\n//g;
if ($line=~m/^(\s*)%(.*)/ig){
$script = $script."$2\n";
}else{
$script = $script."print \"$line\n\";\n";
}
}
#print $script;
eval $script;

__DATA__
<html>
normal HTML
%print "embedding perl \n";
$template_variable