~/pl_test$ perl braveghost.pl
0
q
3
r
    $str: 1we1ty 

0
q
3
r
    $str0: 1we1ty 

Use of uninitialized value in say at braveghost.pl line 17.

r
    $str1: qwe1ty 

3
r
8
r
    $str2: qwe1ty_e1k 

0
f
2
u
1o1r

~/pl_test$