my @story = <FILE>;

##</code><code>##

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

##</code><code>##

  print @story;

##</code><code>##

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