my $str = 123445;
my $l = int (length ($str) / 3); 
my $var1 = substr $str, 0, $l;
my $var2 = substr $str, $l, $l;
my $var3 = substr $str, 2 * $l;