Well it seems after a lil tinkering I found something that seems to work here it is:

#!/usr/bin/perl -w


use strict; 
use HTML::Embperl;

my($code) = <<EOC;
this is some code 
[- \$poop = "foo" -]
[+\$poop+]
EOC

print $code,"\n";

HTML::Embperl::Execute(
  { 
    input=>\$code,
    mtime=>1,
    req_rc=>undef()
  }
);
[download]