my $var = 'LR20SR37PD30LR23CR23BT01H';
$var = substr($var . ' ' x 40, 0, 40);