Help for this page
my @words = split(/\s/,$file[3]);
my $word = substr($file[3], 6, 3); # The third argument to substr is the length of the string