my $string_date = 'Date: 10.04.2006';
my $string_time = 'Time: 05:09:31.192';

my ($day,$month,$year) = $string_date =~ /(\d+)\.(\d+)\.(\d+)/;
$string_time =~ s/[^\d]//g;
my $result = $year.$month.$day.$string_time;
print $result;