How to get text after comment

[arjun.mallik]

Hi,
I need to capture whole text after "#" character in each line from  a
file.The below script is not working can any one suggest the correct
thing plz..

============================
chomp($line1);
     if ($line1 =~ /^#\(.*\)/)
       {
        #Hash array will remove the duplicates entries of objects
present if any,
        #OBJECT is a dummy value used to manage key,value pair
 
        $objectsHash{$1} = 'OBJECT';
       }
==========================

Thanks in advance
Arjun





Confidentiality Notice

The information contained in this electronic message and any attachments to 
this message are intended
for the exclusive use of the addressee(s) and may contain confidential or 
privileged information. If
you are not the intended recipient, please notify the sender at Wipro or [EMAIL 
PROTECTED] immediately
and destroy all copies of this message and any attachments.