Ich glaube, dass $response hier ein Objekt ist und kein Text. Daher tut der Regex auch nichts, weil der Suchtext in der Textdarstellung des Objektes nicht vorkommt. Und durch anfuegen geht das Objekt kaputt.

Ich wuerde Dir HTTP::Proxy empfehlen.