my $crypticString="LR20SR37PD30LR23CR23BT01H";
my $acceptableLength=40;
my $paddedString =$crypticString . " " x 
    ($acceptableLength - length ($crypticString));
print "'$paddedString'";