while (<TEXT>) { ($f1) = /yada.+(SpecialText)anchor/ }