Select Code to Download

#!/usr/bin/perl -w
use strict; 
while (<DATA>){
...
a b  c
d e f
g h i

[a]
[b]
[c]
...
[h]
[i]
we have a newline now