#!/usr/bin/perl -w

$a=78345;
$b=100;
$c=$a/$b;
$d=$c;
$c=~s/\..*//;
if( $d > $c ){
$c++;  }
$c*=100;
print $c,"\n";