Select Code to Download

use strict;
use warnings;
...
    $foo =~ m/./ and print "success.\n";
    # ... (more code) ...
}