Select Code to Download

if( index($str1, $str2) > -1 && $str1 ne $str2 ){
    print "$str2 is a substring of $str1\n";
}

#!/usr/bin/env perl
use strict;
...
    my ($substring, $string) = @_;
    return 1 if index($string, $substring) > -1 && $string ne $substri
+ng;
}