sub scroll { map { $_, "\n" } split('', shift) }

##</code><code>##

sub scroll { map { "$_\n" } split('', shift) }