if ($summary_test =~ /\Q[[$article_name]]\E(.*?)\[\[/s) 
{
    print $1;
}