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