@a = ("9:17 am", "12:30 pm", "99:02 pm", "99:99 pm");
foreach $i (@a)
{
    print "$i\n" if($i =~ /(1[012]|[1-9]):([0-5][0-9]).([aApP][mM])/);
}