Select Code to Download

if (my ($inpmm, $inpdd, $inpyyyy) = @date[1] =~ '(\d+)/(\d+)/(\d+)')
{
...
{
print "Not in Format"
}

08/12/2016 : Has been split to 2016, 08, 12---0 1 1 12 7 2016