Re: Syntax error in using do-until loop: How can I fix it?

[aitap]

in reply to Syntax error in using do-until loop: How can I fix it?

The opening vurly bracket ({) that matches the closing one (}) on line 22 is placed on line 11, so your code between these lines looks like this: { some; code; } (while my $word =~ /^.*$/)

I guess that you missed closing curly bracket (}) after line 13:

foreach my $word(@four)
   {print"\n $word: ";
   my $length=length($word);
   print"\n Length of the word= $length\n\n";
} # there

and the one on line 24 is not needed.

UPD: you can split words easier using split:

#!/usr/bin/perl -w
use strict;
use Data::Dumper;

my $sentence="BEARCALFDEERFEARGEARHEAR";
print Dumper (split /(.{4})/,$sentence);
__END__
$VAR1 = '';
$VAR2 = 'BEAR';
$VAR3 = '';
$VAR4 = 'CALF';
$VAR5 = '';
$VAR6 = 'DEER';
$VAR7 = '';
$VAR8 = 'FEAR';
$VAR9 = '';
$VAR10 = 'GEAR';
$VAR11 = '';
$VAR12 = 'HEAR';