$ perl -le'print for prototype("CORE::substr"), prototype("CORE::select")'
$$;$;$
;*