in reply to simple regex question

Thanks for the responses, the following regex did the job: 
if (/\b^1\b/) {
   print FILE, "$_\n";
}

[download]

In Section Seekers of Perl Wisdom