$data = "\n\n\n"; $data =~ s/\s+/foobar/g; print "data=>$data\n";