Back on EFnet #perl around 1997 to 1998, I knew a person (maybe it was Silmaril) who liked "The Princess Bride", and had a Perl program written that would scour the text of the script for any acronym it was given. Example: "ATARA" => "Are there any rocks ahead?"

If you know this person (or how to contact them), I'd appreciate it. merlyn might remember him.

#!/usr/bin/perl -w

use strict;
# ./acro WORD INPUT
# ./acro WORD < INPUT

my $re =
  join '[\s.,;!?\'"]+',
  map "(?<![\\w'])${_}[\\w']*",
  split //,
  shift;

{ local $/; ($_ = <>) =~ tr/\n\r\t\f / /s; }
while (/(?=(${re}[.,;!?'"]*))/iog) { print "$1\n" }
[download]