if (!$input =~ /\r\n/){
$input =~ s/\n/\r\n/gi;
}