#!/usr/bin/perl use warnings; use 5.16.2; $/ = "\n+"; while (<DATA>) { if ($_ =~ m/\+/) { s/\n\+//; } print; } [download]
In reply to Re: Chomp in perl by rnaeye in thread Chomp in perl by sar123