open D, 'datafile' or die $!;
my $data = join '', <D>;
my %data = split /\\/, $data;
warn $data{frags_0};