>>515
perl -we 'use strict; my $s = "foo"; my$x = undef;print "$1\n" if ($s =~ /foo(o)?/ and $x = $1);'