Select Code to Download

use strict;
use warnings;
...
    print qq{$phrase: $cumulativeOffset\n};
    splice @lines, 0, $lineNo;
}

phrase1: 6
phrase2: 11
...
phrase4: not found in sequence
phrase5: 19
phrase6: 20