$Val2 = trim(substr($line2,80,11));
        print "Value obtained = $Val2\n";
        $Val1 = $Val2;
        print "Value assigned = $Val1\n";
        $Val1 = sprintf("%11d", $Val1);
        print "Value eleven digit = $Val1\n";
        $Val1 =~ s/ /0/g;
        print "Value replaced = $Val1\n";