if ( $somevarv =~ m<HR +SIZE *=  *[0-9]+ *> ) {
  do something....
}