open FILE, "something";
while (<FILE>) {
  s/[^A-Za-z0-9!?,.;:'"]//g;
  print $_;
}