#!/usr/bin/perl
use warnings;
use strict;

my $string = '123.45abc';
print parseInt($string), "\n";
exit;

sub parseInt {
  my $val = shift;
  $val++;
  $val--;
  return $val;
}