my %data;
$/ = "`\n";
foreach my $line (<DATA>) {
..
}