in reply to Re^2: How to remove extra line breaks (using regexp)?
in thread How to remove extra line breaks (using regexp)?
my $file = do { local $/; <DATA> }; $file =~ s/\n(?!A\d+\.)/ /g; $file .= "\n"; print $file; __DATA__ A6.8.5 This is an example sentence A6.8.6 This is an example sentence
A6.8.5 This is an example sentence A6.8.6 This is an example sentence
|
|---|
| Replies are listed 'Best First'. | |
|---|---|
|
Re^4: How to remove extra line breaks (using regexp)?
by Anonymous Monk on Apr 17, 2009 at 15:15 UTC |