perl reg-exp

Shell Programming and Scripting
1

$var1="LEN";
$VAR2="CODLENTT";

now, var2 contains var1(LEN).How do i check this in perl....
whether one string is a part of another..?

if (<logic>)
{
my operation;
}

what'd be the logic..

2

perldoc -f index

3

something like this

my $small_str = "abc";
my $large_str = "abcdef";

if ( $large_str =~ /$small_str/ ) {
    print "yes\n";
}
else {
    print "no\n";
}
4

Thanks Matrixmadhan, Its workin fine!

5

I will suggest to use CODE tags
and provide proper sample input and output