use Tie::File;

tie my @file, 'Tie::File', 'user.txt';

for (@file) {
  s/\|No$/|Yes/ and last;
}