Shell Programming and Scripting

Following are the lines from /etc/sudoers.conf
bob SPARC = (OP) ALL : SGI = (OP) ALL
fred ALL = (DB) NOPASSWD: ALL
ALL CDROM = NOPASSWD: /sbin/umount /CDROM,\
/sbin/mount -o nosuid\,nodev /dev/cd0a /CDROM


Could you please help me with shell/perl script to display the records
with NOPASSWD ...Not just display of lines with "NOPASSWD"..like for
ALL I need to display ==>
ALL CDROM = NOPASSWD: /sbin/umount /CDROM,\
/sbin/mount -o nosuid\,nodev /dev/cd0a /CDROM

Thanks for your help

Code:

use strict;
undef $/;
open FH,"<a.txt";
my $str=<FH>;
$str=~s/\\\n/\\/g;
my @arr=split("\n",$str);
map {print $_,"\n" if /NOPASSWD/} @arr;

Hope this also can do ..


grep -A1 "= NOPASSWD" a.txt

Thanks
Sha