Regex is a better solution, but to answer your original question you would use a \t to represent a tab character.

if ((substr($line,1,13)) eq ("\tTrunk Group:"))
[download]