Before pulling apart the interpreter, you can at least shave a character off the preamble using the old m// trick:

# Formerly:
split//,lc

# Revised:
lc=~m/./g

# Revised revision [mtve]:
lc=~/./g
[download]

Chalk one up for Perl!

Update: mtve points out the obvious. D'oh!