if ( $dls_file =~ /\r\n/ )
{
   $dls_file =~ s/\r\n/\n/g;
}