my $string;
{
    local $/ = undef;
    $string = <FILE>;
}
my @stuff = split '%', $string;

##</code><code>##

my $string;
{
    local $/ = undef;
    $string = <FILE>;
}

$string =~ s/$///g;
my @stuff = split /%+/, $string;