Select Code to Download

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

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