local( $^I, @ARGV ) = ( '.bak', '/var/www/htdocs/cgi-bin/user.txt' );

?\|No$? && s/No$/Yes/ while <>;