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

my $string="012345678901234567890"
print substr($string,0,16);