1.
$ echo "ella" |perl -lane 'print substr($_,0,1)'
e

2.
$ echo "-e" |perl -lane 'print substr($_,0,1)'