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