http://www.perlmonks.org?node_id=520470


in reply to Regular Expression tricky newline problem

Some sample code with "this is what I get", and "this is what I want" would help understand where you are having a problem. The following should be a good starting point, if not the stimulus for a D'oh moment :).

use strict; use warnings; my $lines = do {local $/; <DATA>}; my ($line3) = $lines =~ /Line 3 : (.*?)\n/; print ">$line3<"; __DATA__ Line 1 : Dit is de eerste regel Line 2 : Dit is de tweede regel Line 3 : Dit is de derde regel Line 4 : Dit is de vierde regel

Prints:

>Dit is de derde regel<

DWIM is Perl's answer to Gödel

Replies are listed 'Best First'.