####################################################################
##                               MAIN
####################################################################

my $input_file = get_file ('no_sense_hogwash.txt'); #define an input file

my %ignore = (

	'and' => 1,

  );

while($input_file =~ /(\w[\w'-]*)/g) {
  
  my $word = lc $1;
  
  if (defined $ignore{$word}) {
    
    next;
    
  }
  
}

print "$input_file\n";

####################################################################
##                               SUBS
####################################################################

sub get_file { #to open a file (currently restriction.txt)
               #and store all the data within $sequence

  my ($input_file) = @_;
  
  open (IN, $input_file) or die "Cannot open $input_file for reading: $OS_ERROR\n"; #open a filehandle or die  
  
  my $sequence = ''; 
  
  foreach my $line (<IN>) { #for each line in the filehandle IN

    if ($line =~ /^\s*$/) { # discard blank line
  
      next; #skip the rest of the statement block and continue with the next iteration of the loop
    
    }

    $sequence .= $line # add (concatenate) to a string sequence 
      
  }
  
  return $sequence; #return the string sequence
  
  close IN;

}