#!/usr/bin/perl -w use strict; $/ = undef; my $filecontents = <>; $filecontents =~ s/\n\s+//gm; print $filecontents;