#!/usr/bin/perl

$icase = 'i';
$str = 'ASdf';

if ( 'asdf' =~ /$str/$icase ) { print "it works!\n" }