Allow it so split on more than one blank with the + quantifier as explained in perldoc perlre:

        @sen = split(/ +/, $sent);

Cheers, Sören