use warnings; use strict; undef $/; my $content = ; $content =~ s//gi; print "$content\n"; __DATA__