Help for this page
#!/usr/bin/perl -w use strict; ... my cat is (blue5) my dog is (red6) my cat is (blue6)
red1 blue1 ... blue5 red6 blue6