#!/usr/bin/perl

use warnings;
use strict;

sub getPerlVersionNumber {
    my @a = split(/\./, $]);
    $a[1] =~ s/^0+//;
    return join(".", @a);
}

print getPerlVersionNumber() . "\n";