Select Code to Download

use strict;
use warnings;
...
my @foo = split('x', $string);
my $foo = pop(@foo);
print "Success!\n" if $foo eq "a";

use strict;
use warnings;
...

(@foo[0..18], $foo) = split('x', $string, 20);  # <-- added limit.
print "Success!\n" if $foo eq "a";