second version of inline thingy

cli/exercise_02/input.pl

@@ -3,11 +3,19 @@ use strict;
 use warnings;
 
 
-print "How about a line of input?: ";
+my @inlines = ();
+my $i = 0;
+
+for ($i = 0; $i < 3; $i++) {
+    print "input please: ";
     my $inline = <STDIN>;
+    $inline =~ s/\s*$//;
+    $inlines[$i] = $inline;
+}
+
 
 print "You said:\n";
-print $inline;
+print join("|", $inlines[0], $inlines[1], $inlines[2] . "\n");
 
 
 1;