DB<129> ( ( (undef) x $index ) , @rest) = split //, $str
Can't modify repeat (x) in list assignment at (eval 65)[multi_perl5db.pl:638] line 2, at EOF