Select Code to Download

use strict;
$/ = "\n\n";
...
    # $record contains all needed lines
    # from START OF RECORD to END OF RECORD
}