#!/usr/bin/perl -w
use strict;
use warnings;
use Data::Dumper;

my ($startd,$stopd) = '01.12.2011 31.12.2011' =~ /^(.*)\s(.*)$/smx ;

print "$startd\n";
print "$stopd\n";

my $tst = { start=>$startd , stop=>$stopd };

print Dumper $tst;

print "$tst->{'start'}\n";
print "$tst->{'stop'}\n";