substr($test, 0, $_) eq quotemeta(substr($test), 0, $_))