I need to convert this in to perl does anyone know how? db=$1 dblist=listdb.txt nodelist=node_directory.txt servicelist=services.txt awk -v find_db="$db" ' /Database name/ && find_db && $4 == find_db { db_found = $4; find_db = 0; find_db_node = 1; next; } /Node name/ && find_db_node { node_found = $4; find_db_node = 0; find_node = $4; next; } /Node name/ && find_node && $4 == find_node { find_node = 0; find_node_serv = 1; next; } /Service name/ && find_node_serv { service_found = $4; find_node_serv = 0; find_service = $4; next; } find_service && $1 == find_service { print " Port listing" print " ------------" print " " print "Database name = " db_found print "Node Name = " node_found print "Service Name = " service_found print "Port Number = " $2 exit; } ' $dblist $nodelist $servicelist

man a2p