my $whatever_index = index lc $text , $whatever;
return( substr( $text, 0, $whatever_index ),
        substr( $text, $whatever_index + length $whatever ) );

##</code><code>##

my $whatever_index = index lc $text, $whatever' ;
my $whatever_length = length $whatever;
return unpack "a" . $whatever_index . "x" . $whatever_length . "a*", $text;

##</code><code>##

if ( $text =~ /whatever/i )
{
    return( substr( $text, 0, $-[0] ),
	    substr( $text, $+[0] );
}