#!/usr/local/bin/perl open (OUTFILE, ">file1"); select (OUTFILE); $~ = "WRITELINE"; $^ = "TOP_OF_PAGE"; $= = 60; while ($line = <STDIN>) { write; } close (OUTFILE); format TOP_OF_PAGE = - page @< $% . format WRITELINE = @>>>>>>>>>>>>>>>>>>>>>>>>>>>>> $line .