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

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