Select Code to Download

  my @story = <FILE>;

  foreach my $line ( @story ) {
      $line =~ s/\[([A-Za-z-]+)\]/Replace($1)/eg;
  }

  print @story;

  sub Replace {
      my $word = shift;
      ...
  }