Help for this page

Select Code to Download


  1. or download this
    sub give_me_a
{
...
   chomp($word);
   $word;
}
  2. or download this
    The quick $adj1 fox ${verb1}ed over the lazy $noun1.
  3. or download this
    my %word_list = ();

...
    $line =~ s/\[(noun|verb|adj)([1-3])\]/$word_list{$1}{$2}/g;
    print STDOUT $line;
}