perl -e 'print "Ok\n" if( "foo\n" eq "foo" )'

##</code><code>##

perl -e 'print "Ok\n" if( "foo\n" =~ /^foo$/ )'