В Perl вы можете считать символы справа, если используете отрицательный индекс:
perl -aF, -lne 'print substr $F[3], -33, 32' < input
-n
считывает ввод построчно -a
разбивает ввод на @F
массив -F
указывает, что разделять -l
добавляет новые строки к отпечаткам