my $regex = qr( '(' . join('|', map { quotemeta( $_ ) }
    keys %attributes_hash ) . ')' );

while (<H>)
{
    s/$regex/$attributes_hash{ $1 }/g;
    print;
}