use utf8;

my $datetime = "20100604 074813+0000";
my $regexp = '(\d{4})(\d{2})(\d{2})\s*(\d{2})(\d{2})';

if ($datetime =~ /${regexp}/) {
    print "$4\n";
}