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

But: the second I see code with variables named with a noun fused with an adjected (e.g., frags_0 then I think there must be a better way to represent the data, such as with Data::Dumper.