Select Code to Download

#!/usr/bin/perl 

...
$t->root->mark( qr/(may|child)/, 'bold');

is( $t->sprint, $expected, 'simple replace');