Select Code to Download

use warnings;
use strict;
...
                                                                      
+            
print "\n" . join " ", split '\|', $str;
print "\n" . join " ", split /\|/, $str;