#!/usr/bin/perl -w
use strict;
my $grenzwert = 35;
my $data;

printf "Please enter a filename";
my $filename=<STDIN>;


while (<STDIN>) {
    chomp;
    my $line = $_;
    next unless $line =~ /\d{3,}\.\d{3}-\d{3,}\.\d{3}/;
    my( $bytes ) = $line =~ /\s(\d+)\s*$/;
    if ( $bytes > $grenzwert ) { $data .= '1' }
    else                       { $data .= '0' }
}

my @fail;