my @bits =  sub{ @_[3..$#_] }->( split'', $s );