Subject: Perl to do all of a pattern

From: "David C. Harris" <[email-masked]>
Date: Sat, 22 Jan 2005 03:05:38 -0800

Attached.
#!/usr/bin/perl

# Testing

#print "Howdy doody, world\n";
#open(INFO, "< datafile" ) || die("can't open datafile: $!");

 while (<>) {
               # do something with $_
           }