Help for this page

Select Code to Download

Select or download this

# intentionally no warnings used.
my @array = qw(1 3 4 55 4 3 4 22 1 3 4 3 2 2 3 34);
...
    print "$i\n" if $i != $prev && $i != $array[$_+1];
    $prev = $i;
}

Select or download this

my @array = qw(1 3 4 55 4 3 4 22 1 3 4 3 2 2 3 34);
my $template = join ' ', @array;
...
    print "$_\n" if 1 == @matches;

}