Select Code to Download

$sentence=~ s/\s//igs;

my @four=$sentence=~ /[a-zA-Z]{4}/igs; # Line 9 

   my $length=length($word);

unless (open(RESULT,">$output")){

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

#!/usr/bin/perl
use warnings;
...
    }
close RESULT;