Convert 10 Lines of VB code to PERL script

Basicly I Need to Convert this VB code to a basic perl script ============================================== Dim Code1 As Single For i = 1 To Len([login to view URL]) - 1 Code1 = Format(Asc(Right([login to view URL], Len([login to view URL]) - i)) * 2 + (31 / i) + (i + 3 / 7), "#.#") zip = zip & Code1 Next i zip = Right(zip, 8) For i = 1 To Len(zip) - 1 Code1 = Format(Asc(Right(zip, Len(zip) - i)) * 2 + (1 / i) + (i + 1 / 7), "#00") final = final & Code1 Next i [login to view URL] = "3022750" [login to view URL] = "09111" final = Right(final, Len(final) - 4) final = final & Asc(Text1) Text2 = final theendresult = [login to view URL] + final + [login to view URL] ====================================================== Perl script needs to be something like this: #!/usr/local/bin/perl use strict; my $text1 = $ARGV[0]; my $final = ''; # this is where i need the code to convert the above # vb to do the same thing in perl print "$final\n"; ===================================================== Hopefully I can get this done for 20.00 or so , school project....lol :) ## Deliverables 1) Complete and fully-functional working program(s) in executable form as well as complete source code of all work done. 2) Installation package that will install the software (in ready-to-run condition) on the platform(s) specified in this bid request. 3) Complete ownership and distribution copyrights to all work purchased. ## Platform PERL