use strict;
use warnings;

my $string = join('x', 'a'x20);

my (@foo, $foo);

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