Select Code to Download

#!/usr/bin/perl

...
        print "unexpected value:\t'$r'\n"
    }
}

unexpected value:       'value2'
unexpected value:       'value0'
unexpected value:       'value6'
unexpected value:       'value4'