#!/usr/bin/perl

use strict;
use warnings;

my $Wert1 = '1350,70';
my $Wert2 = '216,00';
s/,/\./g for ($Wert1, $Wert2);

my $Wert3 = $Wert1 - $Wert2;

print $Wert3, "\n";