open(IN, "<$file") || die "Cannot open file $file!\n";
while(<IN>)
{
        chomp;
        if ( $_ =~ /^(.*)(Owner,No,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,
30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50)/ )
        {
                $_ = $2;
                $gefunden = 1;
        }
        if ( $gefunden == 1 )
        {
                $_ = s/^,+//;
                $_ = s/text\d+,//;
                print $_."\n";
        }
}
close(IN);