printing lines from file separated by |

cli/exercise_02/input_fromfile.pl

@@ -18,7 +18,13 @@ if (!defined $ARGV[0]) {
 
 my $infile = $ARGV[0];
 open(DAT, $infile) or die "$infile: $!";
-print <DAT>;
+my @cleaned = ();
+foreach my $line (<DAT>) {
+    $line =~ s/\s*$//;
+    $cleaned[++$#cleaned] = $line;
+}
+
+print join("|", @cleaned) . "\n";
 
 close(DAT);