my $junk;
($junk,my $headsent,my $headword) =  split(/[sw]/,$h);