$chopped = substr $s, 0, 1, "";
# or
substr $s, 0, 1, "";