# mit .+ landet \r in $1
$ perl -MData::Dumper -we '$Data::Dumper::Useqq = 1; $a="Hallo\r\n"; $a =~ m/(.+)/; print Dumper $1;'
$VAR1 = "Hallo\r";

# mit \S+ landet kein \r in $1
$ perl -MData::Dumper -we '$Data::Dumper::Useqq = 1; $a="Hallo\r\n"; $a =~ m/(\S+)/; print Dumper \$1;'
$VAR1 = "Hallo";
$