Select Code to Download

foreach(@Array1)
{
...
                }
        }
}

my $string = "FFF NNN JKK III LLL QQQ";
my $substr = "LLL";
...
else
{
        print "not found";