perl: pos function

 my $s = "I like pie";

for ($i = 0; $i < length($s); $i += 2) {
   pos($s) = $i;
   $s =~ /\w*/ g;
   print "<$&>\n";
}


OUTPUT:
       <I>
        <like>
        <ke>
        <>
        <ie>