use strict;

while ( <> ) {
    $_ = "$1$2" if ( m|(^    <R.+=")[h/].+(/.+"/>\n$)|);
    print;
}