Select Code to Download

while(  $text =~ /($pattern)/g ) {
        my $startindex = $-[0];
...
        $vsoChars->{Text} = $capture;
        $vsoChars->SetProperty( 'CharProps', 1, $color );
}

while( $text =~ /($pattern)/g ) {
        my $vsoChars = $VShape->Characters;
...
        $vsoChars->{Text} = $1;
        $vsoChars->SetProperty( 'CharProps', 1, $color );
}