Select Code to Download

Select or download this

      1 #Open file matching ex.1;
      2 open (C, "<dic.txt") || die "dictionary";
      3 #open file to write to;
      4 open (B, ">>all.txt") || die "output";

Select or download this
```
use warnings;
use strict;
```

Select or download this

     10 @firstgrouping = split(/, |,\s|,\t|,|\s,|\t,| ,/, $line2);

Select or download this

     12 @actualsyll = split(/\d |\d\s|\d\t|\d|\s\d| \d|\t\d|\t\d\t|\s\
+d\s| \d /, $firstgrouping[2]);

Select or download this

     20 open (A, "<$file") || die "files";

Select or download this

     25 $line1 =~ s/^   |^    |^\s\s\s|\s{3,4}//;

Select or download this
```
     27 chomp;
```
Select or download this
```
     29 foreach ($line1 =~ /^\d/g) {
```
Select or download this
```
     29 if ( $line1 =~ /^\d/ ) {
```

Select or download this

     31 if ($line1 =~ /\d\s\w|\d\s{1,2}\d|\d\s\s\d|\d  \d|;\s\w/gi) {

Select or download this

     32 $line1 =~ s/\s| |\s\s|  |\s{2}/\t/g;

Select or download this
```
     33 $line1 =~ s/\t\t|\t{2}/\t/;
```

Select or download this

     40 $spoke =~ s/\s{1,}$|\t{1,}$//g;

Select or download this
```
     54 }}}}
     55 close A;
```

Select or download this

#!/usr/bin/perl
use warnings;
...
    print B "$shift3\n";
    }