subtype 'NewType',
  as 'Str',
  where {$_ =~ /^new_/};

coerce 'NewType',
  from 'Str',
  via { 'new_'.$_ };