use strict; use warnings; my $data = do { local $/; }; $data =~ s/ (