perl 字符串查找

#!/usr/bin/perl  -w

use strict;

$|=1;
my $channel = "Local/33333";

print "channel=".$channel;


my $result = index($channel, "1Local");

if ($result lt 0)
{
print "Not found Result: $result\n";
}
else
{
print "found Result: $result\n";
}