$varstring =~ s/(\w+)/ $self->_get_loop_variable($1, 0, @indices) /eg;
my $old_string=$varstring;
my $new_string = sprintf "%*s", ($align_right ? 1 : -1 ) * $length, $varstring;
$varstring =~ s/(\w+)/ $self->_get_loop_variable($1, 0, @indices) /eg;
my $old_string=$varstring;
my $new_string = sprintf "%*s", ($align_right ? 1 : -1 ) * $length, $varstring;