$string = "Hello"; $ref = \substr($a, 0, 1); print $ref;