<Role elemId="id35" island_id="0" role_name="Design" value="True"/>
<Role elemId="id34" island_id="0" role_name="Lead" value="False"/>

<Role elemId="id35" island_id="0" role_name="" value="True"/>
<Role elemId="id34" island_id="0" role_name="" value="False"/>

#!/usr/bin/perl

use strict;
use warnings;

print "nPerl Starting ... nn";

while (my $recordLine =<DATA>)
{
    chomp($recordLine);

    print "$recordLine ...n";

    if (index($recordLine, "role_name") != -1)
    {
        #Found role_name tag ... now blank it ... how?
        $recordLine =~ s/role_name="Design"/role_name=""/g; #I need a generic reg experssion here
        print "recordLine: $recordLine ...n";

    }
}

print "nPerl End ... nn";

__DATA__
<Role elemId="id35" island_id="0" role_name="Design" value="True"/>
<Role elemId="id34" island_id="0" role_name="Lead" value="False"/>