#!perl
local $/;
$_ = <STDIN>;
s/<%.*?%>//sg;
s/^%.*//g;  # i think mason also interprets lines starting with % as perl code.
print;