use strict;
use warnings;
use diagnostics;
use v5.10;
use locale;
use POSIX qw(locale_h);
setlocale (LC_ALL, "german") or die "failed to load locale!";


my $number = 1/2;
say 'output of say';
say $number;
say 1/2;
say 1/2 . " concatenate";
say 1/2 , " list";
say "1/2 concatenate";
say "1/2 list";
say $number . " concatenate";
say $number , " list";

say 'output of print';
print "$number\n";
print 1/2 . "\n";
print 1/2 . " concatenate\n";
print 1/2 , " list\n";
print "1/2 concatenate\n";
print "1/2 list\n";
print $number . " concatenate\n";
print $number , " list\n";

##</code><code>##

output of say
0,5
0,5
0.5 concatenate
0,5 list
1/2 concatenate
1/2 list
0,5 concatenate
0,5 list
output of print
0,5
0.5
0.5 concatenate
0,5 list
1/2 concatenate
1/2 list