~$ perl -e 'my $x=()="Twinkle twinkle little star"=~/twinkle/ig; print qq|$x\n|'
2