C:\>perl -E "my $str='<c:t="AD2343"/><c:p>65677676</c:p>'; if ( $str =~ m|(<c:.*)?(?:[/>]{2})| ) {say $1;}"
<c:t=AD2343