use warnings;
open (FILE, '<insertfilepath>' || $!);
undef($/);
while (<FILE>) {

@array = split(/\ /, $_);
my $word;
foreach (@array) {
	print "$_\n";
}
}

for (@array){
	s/[\,|\.|\!|\?|\:|\;|\"|\'|\<|\>]//g; 
	$word{$_}++;
}

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