if ($text =~ /$pattern/)
{
    push (@array , $text) ;
}