perl -nE "m/^interface (\S+)/ and $int=$1; m/ spanning-tree guard root/ and print qq|$int $_|" YOUR-FILE.txt