Select Code to Download

     #!/usr/bin/perl -w

     use strict;
...
     while ($string =~ s!($trans_rx)!$trans{$1}!o) { }

     print "$string\n";

     I'm Frank and I prefer Cherry Red objects, at least on 15:33:43 o
+n 2001-02-06