{
    local *_ = \substr $source, $start, $len;
     y/a-zA-Z0-9\n\|-/ /c;
     y/'//d;
}