#!/usr/bin/perl

use strict;
use open ':utf8';

binmode (STDOUT, ":utf8");


use vars qw(@zeile $i $k);

open (FH, "<adult1ru_utf8.neg") or die "NEG nicht da\n";

while (<FH>){
   chomp ($zeile[$i++] = $_);
   if ($zeile[$i-1] =~ /sa[0-9]{3}s[0-9]{2}/){print "$zeile[$i-2]\n";}
   }

close (FH);