Help for this page

Select Code to Download

Select or download this

for( $_ = 'fred'; print "loop\n" and s/(.)//; ) {
    print qq'I saw [$&]\n'; 
...
loop
I saw [d]
loop

Select or download this

$_ = 'fred'; 
while( print "loop\n" and s/(.)// ) {
...
loop
I saw [d]
loop