if ($filename !~ m^/[a-z]{1,7}\.TXT$/i) 

##</code><code>##

if ($filename !~ m/^[a-z]{1,7}\.TXT$/i) 

##</code><code>##

$my @t = split (/\s+/); #split sentences into "words" 

##</code><code>##

my @t = split (/\s+/); #split sentences into "words" 

##</code><code>##

die("File format not valid\n");)