sub afterinit 
{
    $::SIG{'__WARN__'} = sub {
        my $warning = shift;
        if ( $warning =~ m{\s at \s \S+ \s line \s \d+ \. $}xms ) {
            $DB::single = 1;	# debugger stops automatically after
            # the line that caused the warning.
        }
        warn $warning;
    };
    print "sigwarn handler installed!\n";
    return;
}

##</code><code>##

Offset Prefix
=============
10:    i
 7:    ippi
 4:    issippi
 1:    ississippi
 0:    mississippi
 9:    pi
 8:    ppi
 6:    sippi
 3:    sissippi
 5:    ssippi
 2:    ssissippi

##</code><code>##

Offset LCP  (prefix shown in ())
================================
10:    0    ()
 7:    1    (i)
 4:    1    (i)
 1:    4    (issi) overlapping, 3 (iss) non overlapping
 0:    0    ()
 9:    0    ()
 8:    1    (p)
 6:    0    ()
 3:    2    (si)
 5:    1    (s)
 2:    3    (ssi)

##</code><code>##

Offset LCP  (prefix shown in ())
================================
 1:    4    (issi) overlapping, 3 (iss) non overlapping
 2:    3    (ssi)
 3:    2    (si)
 7:    1    (i)
 4:    1    (i)
 8:    1    (p)
 5:    1    (s)
10:    0    ()
 0:    0    ()
 9:    0    ()
 6:    0    ()

##</code><code>##

 4:    1    (i)
 3:    2    (si)
##</code><code>##

 2:    3    (ssi)

##</code><code>##

 1:    3    (iss) non overlapping
 2:    3    (ssi)