#!/usr/bin/perl -w

use strict;

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

my $goodlength = '14';

if ( length($var1) < $goodlength ){
       $var1 = ('0' x ($goodlength - length($var1))).$var1;
       };

if ( length($var2) < $goodlength ){
       $var2 = ('0' x ($goodlength - length($var2))).$var2;
       };

print "var1: $var1\n";
print "var2: $var2\n";

__END__