my $newdeli = do {~s/\"//g; <FILE>}