Select Code to Download

my $s = '0123456789'x3;
print "$s\n";
...
my $c = 30;
substr $s, $c, 0, $c==15?'<br>':'-' while $c-=5;
print "$s\n";