Use perl instead of tac