open (FILE, "foo.txt"); my @lines = map { s/[.,!\?]\B//g } ; close FILE;