perl -e ' die substr q!012345678!,-3 '
678 at -e line 1