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