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