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