use strict;
use warnings;
#use diagnostics; # if you get warnings

##</code><code>##

$line =~ s/\015?\012?\Z//m;

##</code><code>##

chomp($line=<IN>);