8 lines
203 B
Perl
8 lines
203 B
Perl
|
$ perl
|
||
|
|
# Write the script here and press Ctrl+D plus ENTER when finished (^D means Ctrl+D):
|
||
|
|
sub f {my ($s1, $s2, $sep) = @_; $s1 . $sep . $sep . $s2};
|
||
|
|
print f('Rosetta', 'Code', ':');
|
||
|
|
^D
|
||
|
|
Rosetta::Code
|
||
|
|
$
|