You were right that your problem was with $fline =- /go/. I think you want $fline =~ /go/. Notice the ~ instead of -. You were saying set fline equal to negative /go/.

elusion : http://matt.diephouse.com