#!/usr/bin/perl -w
#
#
use strict;

my $price = "50,-";
$price =~ m/(\d{1,4}),(\d{0,2})/;
if ($2 ) {
    $price = $1 . "." . $2;
}
else {
    $price = $1 . "." . "00";
}
print "$price\n";


##</code><code>##

if (defined $2 ) {
    $price = $1 . "." . $2;
}
else {
    $price = $1 . "." . "00";
}