search option in perl

[Sayed, Irfan \(Irfan\)]

Hi all,
 
I need to search a file for a specific string thru perl script.
 
for example i want to put following condition in the script.
 
--- > first search the string string1  
----> and if that string found then search for another string string2
----> if both the string found then print both the string on shell
prompt
 
can anybody plz help
 
regards
irfan.