print wordCheck( 'onlyones', $_ ) for qw[ none noon noone lyoness ];
1
1
1