#!/usr/bin/perl -w
open (IN, $file) or die "Cannot open file '$file' : $!\n;
$line = <IN>;
@array = split ( ' ', $line);
foreach $word (@array){
$word =~ s/^\w\w//g;
$word = lc ($word);
print "$word\n";}
$hash {$the}++;
$hash {$linux}++;
$hash {$hello}++;