$_ = "same old show";

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

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

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