while( $text =~ /($pattern)/g ) {
        my $vsoChars = $VShape->Characters;

        $vsoChars->{Begin} = "$-[0]";
        $vsoChars->{End} = "$+[0]";
        $vsoChars->{Text} = $1;
        $vsoChars->SetProperty( 'CharProps', 1, $color );
}