Hello taj_ritesh,

As Anonymous Monk has pointed out, your get_patterns sub operates on local variables only, and therefore accomplishes nothing.

Here is another problem: You declare a variable as my @resilt = ();, but then attempt to access it as @result. If you had included:

use strict;
[download]

at the head of your script, Perl would have flagged this mistake for you (along with at least six other cases in which a variable is used without first being declared).

Hope that helps,