sub pair { map @_[$_,$_+@_/2], 0..$#_/2 }

$_='A # B # 1 # 2';
print join ' # ', pair split / # /;