04Žž
$A = ('1a2a3a4a5a6a')
@A = split(/a/,|1a2a3a4a5a6a)
@A = 1 2 3 4 5 6
@AA = join('b',@A)
@AA = 1b2b3b4b5b6