#!/usr/bin/perl

use strict;
use warnings;

my $data = '<c:t="AD2343"/><c:p>65677676</c:p>';

if ($data =~ m@.*(<c:[^>]*/>).*@) {
    print("Match: [$1]\n");
}