%nc = $str =~ /?<status>[\w\040]*)/;
say %nc{status};

##</code><code>##

my %matches = %+;
sub(\%matches);