Select Code to Download

$sequence1 = [ qw( a b     ) ];
$sequence2 = [ qw(    b  c ) ]; 
...
  'ab_',
  '_bc',
];

sub lcs_greedy {
  my $self = shift;
...
return \@L;
}