改行コード変換関数

# 引数：変換前文字列
# 戻値：変換後文字列
#
sub cngCrlf{
    my ($tmp) = $_[0];
    $tmp =~ s/\x0D\x0A|\x0D|\x0A/\n/g;
    return $tmp;
}