Help for this page

Select Code to Download


  1. or download this
    while ( my $line = <DATA> ) {
    my ($new, $old) = split /\s+/, $line;
...
fuse can be made from useful
poor can NOT be made from porridge
root can be made from rotor
  2. or download this
    my $regex = qr{
\A                  # anchor at start for efficiency
...
    (?:.*o){2}      # for two 'o's
  )
}six;               # ignore case