in reply to pattern and loop

$pattern= ^LOC_Os0[1-7]g[0-9]*.[0-9]\s;

[download]

In Section Seekers of Perl Wisdom