$_ = "abc";

# scalar, one at a time:
while(/((.))/g) {
    print "while: $1 (+ $2)\n";
}

# list context, one go
@list = /((.))/g;
print "List: @list\n";

# list context, foreach loop
foreach(/((.))/g) {
    print "foreach: $_\n";
}