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

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