my $var = 'LR20SR37PD30LR23CR23BT01H';
$var = sprintf '%-40s', $var;