how to split string and capture sentences ending using regex? : i want to split string and capture sentences ending characters like .?! as well. <br>

ex:<br>
input: " why you eating so much ?"<br>
output :<br>why<br> you <br> eating <br> so <br> much <br>?<br>
input : "i am going to school."<br>
output :<br>i<br> am<br> going<br> to<br> school<br>.<br>

i tried using this code below :<br>

    my $s="why you are eating too much?";
    my @word=  split /(\s+|([\s+.?!]))/, $s;
    for (@word){print "$_\n";}
but the output has 2 of separator.<br>
for example the the output for code above is : <br> 
<br>why<br><br> you <br><br> eating<br> <br> so <br><br> much<br>?<br>?<br>

any clue why this happening.
  
 