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

##</code><code>##

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