Select Code to Download

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

my $string;
{
...

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