my ($var1, $var2, $var3) = (12, 34, 45);

##</code><code>##

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;

##</code><code>##

my @vars = $str =~ /..?/g;