Select Code to Download

use strict;
use warnings;
...

$text =~ s{$rxDict}{ $dict{ lc $1 } }eg;
print $text;

%dict = (
          'eat' => '1',
...
a group, does not wear habits.  6 of you to watch what you
1. Make a 9 of what drinks are drunk in a 7 and the
8 could be coloured in.

The 3 has a 2 of eating 6 of like a 5.  5-6, as
a group, does not wear habits.  6 of you to watch what you
1. Make a 7 8 of what drinks are drunk in a 7 and the
8 could be coloured in.