#!/usr/bin/perl -w

use strict;

my $var1 = "002130013809";
my $var2 = "002150004800";

my $var1alt = sprintf("%014d", $var1);
my $var2alt = sprintf("%014d", $var2);

print "$var1 => $var1alt\n";
print "$var2 => $var2alt\n";