#!/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, $/;

##</code><code>##

#!/usr/bin/perl
use 5.014;    ## it wouldn't work for lower version
use Readonly;

Readonly my $comma => ",";

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 %data_filter = (
    '1_first_date_format' => sub {
        if ( $_[0] =~ /(\d{2}\.\d{2}\.\d{4})/ ) {
            my $format_date = $1;
            $format_date =~ s/\./-/g;
            return ( $format_date, $comma );
        }
    },
    '2_msisdn' => sub {
        if ( $_[0] =~ /msisdn:(.+)/ ) {
            return ( $1, $comma );
        }
    },
    '3_ud' => sub {
        if ( $_[0] =~ /ud:(.+)/ ) {
            return ( $1, $comma );
        }
    },
    '4_trxtime' => sub {
        if ( $_[0] =~ /trxtime:(\d{8}).+Code:(\d+)/sm ) {
            my ( $format_date, $code ) = ( $1, $2 );
            $format_date =~ s/(\d{4})(\d{2})(\d{2})/$1-$2-$3/;
            return ( $format_date, $comma, $code );
        }
    },
);

for my $key ( sort keys %data_filter ) {
    for ( split /,/, $str ) {
        print $data_filter{$key}->($_);
    }
}