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