Select Code to Download

@datan = ("1","2","3","4","5","6");
print map{($_ eq "3")?("$_\n"):("$_ ")} @datan;
...
__END__
1 2 3
4 5 6