15 lines
334 B
Perl
15 lines
334 B
Perl
|
#!/usr/bin/perl
|
||
|
|
use warnings;
|
||
|
|
use strict;
|
||
|
|
|
||
|
|
my $First = "One ";
|
||
|
|
my $First_Addition = "Two ";
|
||
|
|
my $Second_Addition = "Three";
|
||
|
|
my $string = $First;
|
||
|
|
print "The string is now: $string \n";
|
||
|
|
$string.= $First_Addition;
|
||
|
|
print "The string is now: $string \n";
|
||
|
|
$string.= $Second_Addition;
|
||
|
|
print "The string is now: $string \n";
|
||
|
|
|
||
|
|
|