open (MY_DATA, "$someFile") or die qq(aauugh!);

while (<MY_DATA>) {
    next unless (/^internal name/);
}

while (<MY_DATA>) {
    next unless (/^need this/);
    <do something>
}