Select Code to Download

my @rows = ($name, $tel, $col3, $col4, $col5, $col6, join " ", @notes)
+;

while (<DATA>) {
    s/\s+$//;
    s/\s+/ /g;
    print $_, "\n";
}