open FILE, "$dir/$file" or die ("Invalid file!\n");
my @stories = <FILE>;

my $title = '';
my %stories_hash = ();
foreach my $line (my @stories){
    
    if($line =~ /<(.*)>/){
        $title = $1;
    } else {
        $stories_hash{$title} .= $line;
    }
}