$ref = [ split //, 'tempfoo' ];
print $ref->[0], $/;

## prints: t

##</code><code>##

.