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

my $zero ="00000000000000000";
print "$zero\n";  # 00000000000000000 # exact text
$zero = $zero + 0;
print "$zero\n";  # 0