if ( $end_date =~ /[A-Z]{3}\sFeb\s(\d+)\s/i && $1 > 28 ) { print "Wha???? Date is Feb $1 !!!\n"; }