04Žž

$A = ('1a2a3a4a5a6a')

@A = split(/a/,|1a2a3a4a5a6a)

@A = 1 2 3 4 5 6

@AA = join('b',@A)

@AA = 1b2b3b4b5b6