open(STATS, "/path/to/file") or die "Couldn't open file: $!";
my $line = scalar <STATS>;
chomp $line;
my %file = split /\|/, $line;
close STATS;