Help for this page
LABEL O 1 blah ... blah STOP
while (<IN>) { my $exp_idstr = sprintf( "%o", $expected_id ); if ( s/\(LABEL O $exp_idstr\)\n/$1 NEWSTUFF/ ) { ...