#!/usr/bin/perl 
use warnings;
use strict;



while (<DATA>) {
	if ( /<hr( +size *=? *[0-9]+ *(\/>|>)| +\/>|>)/i ) {
		print;
	}
}


__DATA__
<hr size==12 />
<hr size = 12 />#!/usr/bin/perl 
use warnings;
use strict;



while (<DATA>) {
	if ( /<hr( +size *=? *[0-9]+ *(\/>|>)| +\/>|>)/i ) {
		print;
	}
}


__DATA__
<hr size==12 />
<hr size = 12 />
<hr size=14>
<hr>
<hr >
<hr />
<hr size />
<hr size=14>
<hr>
<hr >
<hr />
<hr size />