perl -nlE'say,last,if$.==4'
     1234567890123456789012  22