Select Code to Download

#!/usr/bin/env perl

use 5.012;
...
        printf "%s == %s\n", $expr, eval($expr) eq '' ? "''" : eval($e
+xpr);
    }
}