Select Code to Download

#!/usr/bin/perl

...
last unless $c =~ s/c/$c[int(rand(@c))]/;
}
print "\noption 3:\n$c\n";

option 1:
bbbbbbbbbbbbbbbbbbbbbb
...

option 3:
dbjdbhbhdbedfdeifdb