According to perldoc perldata (paragraph for $MATCH) I would avoid the use of "$&"; I would capture the pattern and use "$1" instead.

use strict;
use warnings;

my $string = "Hello World";
while($string =~/(.)/g){
    print "$1\n";
}
[download]