print "Yep.\n" if $lines[0][0] == 'foo'; 

##</code><code>##

print "Yep.\n" if $lines[0][0] eq 'foo';