use Data::Rmap; ... rmap{ s/^\s+\n//; } $oWkBook;