#!/usr/bin/perl

print ("Enter the date in dd-mm-yy format : ") ;
$date = <STDIN> ;
chomp ($date) ;

while ($date ne "") {
        if ($date =~ /[1-31]-[1-12]-[1-99]/) {
            print("You have entered valid data \n") ;
        } else {
            print ("You have entered invalid data \n") ;
        }
        $date = <STDIN> ; chomp($date) ;
}