undef($/);
while (<FILE>) {
}

##</code><code>##

undef($/);
$_ = <FILE>;

##</code><code>##

s/[\,|\.|\!|\?|\:|\;|\"|\'|\<|\>]//g; 

##</code><code>##

s/[\,\.\!\?\:\;\"\'\<\>||||||||]//g; 

##</code><code>##

s/[\,\.\!\?\:\;\"\'\<\>|]//g; 

##</code><code>##

s/\,|\.|\!|\?|\:|\;|\"|\'|\<|\>//g; 

##</code><code>##

s/[\,\.\!\?\:\;\"\'\<\>]//g; 

##</code><code>##

@array = split(/\ /, $_);

s/[\,\.\!\?\:\;\"\'\<\>]//g; 

##</code><code>##

@array = split(/ /, $_);

s/[,.!?:;"'<>]//g; 

##</code><code>##

'<insertfilepath>' || $!

##</code><code>##

'<insertfilepath>'

##</code><code>##

@array = split(/ /, $_);

##</code><code>##

@array = split(' ', $_);

##</code><code>##

use strict;
use warnings;

my $file;
{
   my $qfn = '<insertfilepath>';
   open(my $FILE, '<', $qfn)
      or die("Can't open \"$qfn\": $!\n");
   local $/;
   $file = <$FILE>;
}

my %word_counts;
for (split(' ', $file)) {
   s/[,.!?:;"'<>]//g; 
   ++$word_counts{lc($_)};
}

for my $word (sort keys(%word_counts)) {
   print "$word occurred $word_counts{$word} times\n";
}

##</code><code>##

use strict;
use warnings;

my %word_counts;
while (<>) {
   for (split(' ', $_)) {
      s/[,.!?:;"'<>]//g; 
      ++$word_counts{lc($_)};
   }
}

for my $word (sort keys(%word_counts)) {
   print "$word occurred $word_counts{$word} times\n";
}