Help for this page
#!/usr/bin/perl -w # # ... $price = $1 . "." . "00"; } print "$price\n";
if (defined $2 ) { $price = $1 . "." . $2; } else { $price = $1 . "." . "00"; }