} until ( my $word=~ /^.*$/); # Line 22