@_ = split /,/,join "\n",$myscalar

##</code><code>##

shift @_ = split /,/,join "\n",$myscalar