#!/usr/bin/perl -wT

use strict;

my $s = 'stuff <% junk %> more stuff <% more junk %> end';
print "$s\n";
$s =~ s/<%.*?%>//g;
print "$s\n";