#!/usr/bin/perl

use warnings;
use strict;

my $kurs1 = 49,90;
print $kurs1 *2, "\n"; # 98 + Fehlermeldung von Perl bei einsetzen von use warnings;

my $kurs2 = 49.90;
print $kurs2 *2, "\n"; # 99.8

my $kurs3 = "49,90";
$kurs3 =~ s%,%.%g;
print $kurs3 *2, "\n"; # 99.8

1;