Select Code to Download

#!/usr/bin/perl-w 
## To chop a sentence at intervals of 4-letter and to print results:
use strict;
...
} until ( my $word=~ /^.*$/); # Line 22  
exit;
}

Microsoft Windows [Version 6.1.7600]
Copyright (c) 2009 Microsoft Corporation.  All rights reserved.
C:\Users\xxxxxxx\Desktop>word.pl
syntax error at C:\Users\xxxxxx\Desktop\word.pl line 22, near ");"
Execution of C:\Users\xxxxxxxx\Desktop\word.pl aborted due to compilat
+ion errors.