Try this;
my $total = "4536233";
$total =~s/(.+)(\d{2})/$1.$2/;
print $total;
----- Original Message -----
From: "Stuart Clark" <[EMAIL PROTECTED]>
To: "Perl List" <[EMAIL PROTECTED]>
Sent: Sunday, January 27, 2002 5:56 PM
Subject: decimal point
> Hi,
> I am trying to move the decimal point 2 places to the the left.
>
> Eg : To make 4536233 into 45362.33
>
> I tried this
> $total = "4536233";
> $total = sprintf("%0.2f",$total);
> print "$total";
> But I get this
> 4536233.00
>
> Can anyone help please
>
> Regards
> Stuart Clark
_________________________________________________________
Do You Yahoo!?
Get your free @yahoo.com address at http://mail.yahoo.com
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
