@array = split(/\ /, $_);

s/[\,\.\!\?\:\;\"\'\<\>]//g;