Select Code to Download

{
    # 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";
    }
}