Select Code to Download

use strict;
use warnings;
...
$$ ss $$ ss
$$ ss
ss

my $count = do { local $/ = $constant; () = <DATA> } - 1;