in reply to Problem changing only first occurence of pattern in file

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

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

[download]

In Section Seekers of Perl Wisdom