Help for this page

Select Code to Download


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