Please don't shout by using all capitals and please use some <br>'s to make a newline.
Also, your regexp's don't seem right to me. If you want to match a word without punctuation, you might try something like this:
if ($word =~ m/([a-zA-Z0-9\']+)/)
{
print $1;
}