Select Code to Download

   $str = 'ABC';
   pos($str) = 1;
   while (/.\G/g) {
     print $&;
   }

   use warnings;
   $str = 'ABC';
...
   while ($str=~/.\G/g) {
     print $&;
   }

   print pos($str);  #line6
   while ($str=~/.\G/g) {
     print $&;
   }

   
use warnings;
$str = 'ABC';
...
while ($str=~/.\G/g) {
     print $&;
}

Use of uninitialized value in print at /home/lanx/B/PL/PM/re_escG.pl l
+ine 2.
Use of uninitialized value $& in print at /home/lanx/B/PL/PM/re_escG.p
+l line 5.