in reply to search functionality in perl