use XML::Twig;
my $twig = new XML::Twig(TwigHandlers => { 'bold' => \&bold, 'p'  => \&paragraph, 'li'  => \&ordered_list},TwigRoots => {body => 1});

sub bold {
	my ($twig, $bold,) = @_;
        my $bold_text = $bold->text;
	&choiceReplace($bold_text,$file);
        $bold->set_text($bold_text);
         }
 

sub paragraph {
    my ($twig, $para,) = @_;
    my $para_text = $para->text;
    &choiceReplace($para_text,$file);
    $bold->set_text($bold_text);
              	}