Select Code to Download

use 5.010;
use strict;
...

$_ = q[<c:t="AD2343"/><c:p>65677676</c:p>];
m{<([^>/]+)/>} && say $1