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