foreach (@story) {
	s/\[(.*?)\]/$hash{$1}/g;
	print;
}