multiline.t revision 7c478bd95313f5f23a4c958a745db2134aa03244
#!./perl
# $RCSfile: multiline.t,v $$Revision: 4.1 $$Date: 92/08/07 18:27:20 $
print "1..5\n";
$x = 'now is the time
for all good men
to come to.
!
';
$y = 'now is the time' . "\n" .
'for all good men' . "\n" .
'to come to.' . "\n\n\n!\n\n";
print try $x;
$count = 0;
$z = '';
while (<try>) {
$z .= $_;
}
if (/.*\n.*\n.*\n$/) {print "ok 4\n";} else {print "not ok 4\n";}