my $str = "abcdef";

my $v1 = substr $str, 0,2;
my $v2 = substr $str, 2,2;
my $v3 = substr $str, 4,2;