Help for this page

Select Code to Download

Select or download this

$s = 'a' x 10; 
print join( 'B', unpack '(A1)*', $s ) . 'B';;
aBaBaBaBaBaBaBaBaBaB