use mapcar; sub s2a{mapcar{join"",@_}map[/(.)/g],@_}