17-08-2010 10:57:22  141-9997  Critical  "OEM:imst2k19:4"

##</code><code>##

if ($var  =~ /^((0[1-9]|[12][0-9]|3[01])-(0[1-9]|1[012])-(20)?\d\d\s\w)/)  {

}