#!/usr/bin/perl -w
use strict;
sub slurpie {
local $/ = ''; # put into paragraph mode (separated by one or more blank lines
while (<DATA>) {
next unless /^\w\w.+(\w\w).+(\b\d\d\d\b).+(\w\w)/sg; #should only match first paragraph
print "$_\n";
}
}
slurpie();
__DATA__
hi
hi
234
hi
hoi
sdfsdfsdf23423
hi
hi
hi
1234
1
:!././././././././././perl_slurp.pl
hi
hi
234
hi
In reply to Re^7: $/ question
by convenientstore
in thread $/ question
by convenientstore
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |