#!/usr/bin/perl
open (data, 'data.txt') or die "die";

@words = split (/\n\n+/, <data>); 
print $words[0];
exit;