Select Code to Download

$my_object_of_class_A =~ qclassB/$string/

use warnings; use strict; 

...
                print "<<$s>> does not match\n"
        }
}