Select Code to Download

sub lcss_brute {
    my( $r1, $r2, $min ) = @_;
...
    }
    return \@solns;
}

pp lcss_brute( \'xxxyyxxy', \'yyyxyxx', 1 );

C:\test>lcss-test.pl
[["yyx", 1, 3], ["yxx", 4, 4]]

#! perl -slw
use strict;
...
        }
    }
}