use strict;
use warnings;
use English;
my $html = '<c:t="AD2343"/><c:p>65677676</c:p>';
$html =~ m{<c:.*/>}; 
print $MATCH, "\n";