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

##</code><code>##

-----------------------------------
--the good, the bad and the physi--
-----------------------------------