my $string = "FFF NNN JKK III LLL QQQ";
my $substr = "LLL";

my $result = index($string, $substr);
if($result > 0)
{
        print "Result: $result\n";
}
else
{
        print "not found";