UNIX for Dummies Questions & Answers

$ cat orgill.pl
#!/usr/bin/perl

open( FH, "./datafile" ) || die "Couldn't open file...\n";

while ( <FH> ) {
   $data .= $_;
}

$data =~ s/<role roletype="01">\n<status>1\n/<role roletype="01">\n<status>0\n/g
;

print $data;
$ ./orgill.pl > newfile

$ cat dbshot.xml 
<role roletype="01">
<status>1

<role roletype="02">
<status>1

blah blah
<status>1

$ cat script.sh
sed '/roletype="01"/ {
n
s/<status>1/<status>0/
}' dbshot.xml

$ script.sh
<role roletype="01">
<status>0

<role roletype="02">
<status>1

blah blah
<status>1