Select Code to Download

use warnings; use strict;
while (<DATA>) {
...
The road ahead3;[Address made before the Regional
         Foreign Policy Conference; 004561963

use warnings; use strict;
my($buf, $bufq);
...
        }
        print "read one record: \n(($_))\n";
}