#!/usr/bin/perl

use warnings;
use strict;

my @alte_zeile;
my @neue_zeile;
my $spalte_i = 2;  # 3. Feld in der Zeile
my $spalte_k = 4;  # 5. Feld in der Zeile
my $zaehler;

while (my $line = <DATA>) {  # statt Datei
    chomp $line;
    $zaehler++;
    @alte_zeile = @neue_zeile;
    @neue_zeile = split(":", $line);
    next unless @alte_zeile;
    if ($alte_zeile[$spalte_i] eq "12") {
        print "Treffer '12' in Spalte $spalte_i\n";
        my $feld_k_neu = $neue_zeile[$spalte_k];
        if ($feld_k_neu eq "x") {
            print "\tTreffer 'x' in in Zeile $zaehler, Spalte $spalte_k\n";
        }
        elsif ($feld_k_neu eq "w") {
            print "\tTreffer 'w' in in Zeile $zaehler, Spalte $spalte_k\n";
        }
        else {
            print "\tKein Treffer in Zeile $zaehler.\n";
        }
    }
}
__DATA__
zeile1:foo:2:bar:x:test
Zeile2:baz:12:bla:d:blub
zeile3:urbi:7:orbi:w:maus
zeile4:lolek:1:bolek:y:elefant
zeile5:foo:2:bar:x:test
Zeile6:baz:12:bla:d:blub
zeile7:urbi:7:orbi:x:maus
zeile8:lolek:1:bolek:y:elefant