sub setLineBreak {
    my $inFile = shift;
    $/ = "\n";
    open( IN, "<$inFile" ) or die "Cannot open $inFile: $!\n";
    while (<IN>) {
        if ( $_ =~ /\r\n/ ) {
            print "DOS line breaks detected ...\n" if ($verbose);
            $/ = "\r\n";
            last;
        }
        elsif ( $_ =~ /\r/ ) {
            print "Mac line breaks detected ...\n" if ($verbose);
            $/ = "\r";
            last;
        }
        else {
            print "Unix line breaks detected ...\n" if ($verbose);
            $/ = "\n";
            last;
        }
    }
    close IN;
}

##</code><code>##

while(<FILE>){
  chomp;
  # etc.
}