if ($response->content =~/<!-- \[error\] -->(.+?)<!-- \[\/error\] -->/m
+)
{
    print "$1\n";
}