sub comparator 
{
    my $str1 = shift @_;
    #...
    my $RE = qq|</span> |;

    traverse_sequences( \@from, \@to,
        {
            # ...
        }
    );
    
    return ($original, $revised);
}