#!/usr/bin/perl
# vim: set ts=4 sw=4 et sta:
use strict;
use warnings;


# DOS line
my $line = "Hallo Welt.\x0d\x0a\x0d\x0a";

print "Start: ", $line;

while ( $line =~ m/\n$/ ) { chomp $line; }

print "Stop: ", $line;