perl -lpe 'substr $_, 0, 9, ""' file perl -lpe '$_ = substr $_, 9' file