14 lines
323 B
Perl
14 lines
323 B
Perl
|
#!/usr/local/bin/perl
|
||
|
|
$resultstring = "";
|
||
|
|
print("Enter your input - type an empty line to quit\n");
|
||
|
|
$input = <STDIN>;
|
||
|
|
chop ($input);
|
||
|
|
while ($input ne "") {
|
||
|
|
$resultstring .= $input;
|
||
|
|
$input = <STDIN>;
|
||
|
|
chop ($input);
|
||
|
|
}
|
||
|
|
print ("Here is the final string:\n");
|
||
|
|
print ("$resultstring\n");
|
||
|
|
|
||
|
|
|