Help for this page
{ # Set the record separator to match the data. # In this example I have a blank line between ... First line of text second line of text in the third line I have 1.73205081
$/ = "First line of text"; while (<DATA>) { ... print "Captured ($1)\n"; } }
{ $/ = undef; my $data = <DATA>; ... print "Captured $_\n"; } }
www.com | www.net | www.org
No recent polls found