#!/usr/bin/perl
########## InlineWeb.pm
package InlineWeb;
use Filter::Simple;
FILTER{
my $program="";

while (1){
  if (/\G{{/gc){
    /\G({+)/gc;
    my $braces = $1;
    $braces=~tr/{/}/;
    /\G(.*?)}}$braces/gcs;
    $program.=$1.qq[;\n];
    next;
  }elsif (/\G{\[/gc){
    /\G(\[+)/gc;
    my $sq = $1;
    $sq=~tr:\[:\]:;
    /\G(.*?)$sq]}/gcs;
    $program.=q[print scalar ].$1.qq[;\n];
    next;
  }else{
    /\G(.*?)(?=({\[|{{|$))/gcs;
    my $txt = $1;
    my $delim = $2;
    $txt=~s:':\\':g;
    $program.=q[print '].$txt.qq[';\n];
    next if $delim;
  }
  last;
}
$_=$program;
return $done=1;
};
1;