/tmp>diff foo bar
1,2c1,2
< Bla bla. Foo bar baz.
< Nada nada nada. Nada?
---
> Bla bar. Foo bar baz.
> Nada na-da nada. Nada?
4c4
< bar. Bla. Bar bla.
---
> bar. Bla bar bla.

##</code><code>##

/tmp>diff -u foo bar
--- foo 2021-01-31 15:13:16.892239748 +0100
+++ bar 2021-01-31 15:13:43.403869518 +0100
@@ -1,6 +1,6 @@
-Bla bla. Foo bar baz.
-Nada nada nada. Nada?
+Bla bar. Foo bar baz.
+Nada na-da nada. Nada?
 Foo foo foo! Bar. Foo
-bar. Bla. Bar bla.
+bar. Bla bar bla.
 Foo bla bla nada bar.

##</code><code>##

/tmp>diff -y foo bar
Bla bla. Foo bar baz.                                         | Bla bar. Foo bar baz.
Nada nada nada. Nada?                                         | Nada na-da nada. Nada?
Foo foo foo! Bar. Foo                                           Foo foo foo! Bar. Foo
bar. Bla. Bar bla.                                            | bar. Bla bar bla.
Foo bla bla nada bar.                                           Foo bla bla nada bar.

##</code><code>##

/tmp>diff -n foo bar
d1 2
a2 2
Bla bar. Foo bar baz.
Nada na-da nada. Nada?
d4 1
a4 1
bar. Bla bar bla.

##</code><code>##

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

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

##</code><code>##

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

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