local $/ = "\r\n";
chomp $string;