As an alternative to Corion's suggestion, you can anchor your expression to the start of the string.

/^.{0,80}\Q<?xml\E/s

You will likely need the s modifier so . will match newlines and escaping expressions containing punctuation (\Q...\E) is a good habit to get into. See perlretut for details.