in reply to How can I match between two integer numbers

why not just do something like this: 
@fields=split(/\s+/);
print FH "$fields[1] $fields[2]\n";
print FH "$fields[4] $fields[5]\n";

[download]

In Section Seekers of Perl Wisdom