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