or with unpack:

my $s = "aabbcc";

my ($var1, $var2, $var3) = unpack "(A2)*", $s;

say for $var1, $var2, $var3;

__END__
aa
bb
cc
[download]