It may be use full for You...

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