>>603
> print "even=$_\n" if( $_ =~ /[^s]even/ );
> print "sevens=$_\n" if( $_ =~ /sevens/ );