#!/usr/bin/perl
use warnings;
use strict;

my $str = <<'_STR_';
06.02.2013 12.24.01:909 5807225321 INFO {EXT:httpadapter:17:14:}[0]RULEZ HTTPADAPTER,msisdn:637584930382,ud:Pan,trxtime:20130206122401 ResponseDeltaTime:31 ms ResponseCode:200 ResponseBody:OK

_STR_

my $wanted_data;
for ( split /,/, $str ) {
    if (/(\d{2}\.\d{2}\.\d{4})/) {
        my $format_date = $1;
        $format_date =~ s/\./-/g;
        $wanted_data .= $format_date;
    }
    elsif (/msisdn:(.+)/) {
        $wanted_data .= ',' . $1;
    }
    elsif (/ud:(.+)/) {
        $wanted_data .= ',' . $1;
    }
    elsif (/trxtime:(\d{8}).+Code:(\d+)/sm) {
        my ( $format_date, $code ) = ( $1, $2 );
        $format_date =~ s/(\d{4})(\d{2})(\d{2})/$1-$2-$3/;
        $wanted_data .= ',' . $format_date . ',' . $code;
    }else{ print "data given is not true"}
}

print $wanted_data, $/;