print+sub{&{shift@@}->(@@=shift,newbie,Perl,another,confused,Just)}->(sub{m
{.}&&$@=~s{$}{@{[shift]}$"}||s{}{@{[shift^"@"x6]}},sub{$#_-m{.}&&&{shift@@}
->(@@=splice@_,$#,$#_)||$@=~s{@{[shift@@]}$"}{@{["$_*"^$&]}}&&$@}},FD.TILW)