use strict;
use autodie;
open my $infile, '<', '/home/tai/tmp/sm-error-report.txt';
my @words = split /\W+/, do { local $/ = <$infile> };
print "$_\n" foreach @words;