Select Code to Download

use strict;
use warnings;
...
}

print $string, q{-} x 25, qq{\n};

kjdfjdfXYZewfkfABClkjfef
sahasjABCsjhksfhABCsjsjfs
...
oreweou999999lkjfef
xcvmvbbbvABCdjf999999jfdkjf999999hfdhgfABCyeryerXYZffjfs
-------------------------