my $date = '23/06/2003';

$date =~ m!([0-9]{2})/([0-9]{2})/([0-9]{4})!;