Select Code to Download

#test 1
$s ="This   is   a   test";
...
    foreach $i (@ar) {
    print "|$i| \n";
    }

--- output 1 --- 
|this| 
...
|| 
|| 
|test|

--- output 2 --- 
|this| 
|is| 
|a| 
|test|