Shaving and making it legal in earlier Perls:

#23456789_123456789_123456789_123456789_123
perl -e'print((G,T,A,C)[rand 4])for 1..pop' 1000
[download]