#!/usr/bin/perl

use strict;
use warnings;
use diagnostics;

my $test1 = "18.02.2008";

if($test1 =~ m/^\d{2}\.\d{2}\.(\d{4})$/ ){
        print("TRUE\n");
}
else{
        print("FALSE\n");
}