$previous =~ /(.*)\.(.*)/;
my $word = $1;
my $ext  = $2;