Help for this page

Select Code to Download


  1. or download this
    my $whatever_index = index lc $text , $whatever;
return( substr( $text, 0, $whatever_index ),
        substr( $text, $whatever_index + length $whatever ) );
  2. or download this
    my $whatever_index = index lc $text, $whatever' ;
my $whatever_length = length $whatever;
return unpack "a" . $whatever_index . "x" . $whatever_length . "a*", $
+text;
  3. or download this
    if ( $text =~ /whatever/i )
{
    return( substr( $text, 0, $-[0] ),
        substr( $text, $+[0] );
}