if($filedata[$i] =~ m/\d..\d/)
if($filedata[$i] =~ m/\.\./)
if($filedata[$i] =~ m/\d+\.\.\d+/)
if($filedata[$i] =~ m/../)
if($filedata[$i] =~ m/\../)