Help for this page

Select Code to Download

Select or download this

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

Select or download this

sub wordCheck{
    my $s  = join  '', sort split'', $_[0];
...
1
doing: elnnoosy =~ e.*l.*n.*o.*s.*s.*y