You can use case-insensitive regular expression pattern matching. If you're planning on doing much Perl programming you should buy "Programming Perl", which is the best reference book on the language. See the "Pattern Matching" section of that book.
Code:
if( $str1 =~ /$str2/i ) {
print( "Success!!\n" );
}