#!/usr/bin/perl ############################################################################## print "Cache-Control: no-cache, must-revalidate\n"; print "Pragma: no-cache\n"; print "Content-type: text/html\n\n"; @line = '12345(2345678901234)nopqrst'; ### test print "1 @line"; $1=""; print "2 @line"; exit; ### end test