OK, the additional info helps me see what you're doing. But you're basically scripting an interaction with a machine we know nothing about. I have no idea what system "show run | inc dhcp relay" is a valid command on, much less what its output should look like or how to parse it.

In other words, you don't have a Perl question, you have a question about the system you're connecting to. And we don't know anything about that.

    -- Chip Salzenberg, Free-Floating Agent of Chaos