#! perl
use strict;
use warnings;
use Tie::File;

my $filename = 'data.txt';

tie  my @lines, 'Tie::File', $filename or die "Cannot tie file '$filename' to array: $!";

for (my $i = 0; $i < @lines; ++$i)
{
    my @fields  = split ' ', $lines[$i];
    $fields[1] .= ' ' x (50 - length $fields[1]);
    $lines[$i]  = join(' ', @fields);
}

untie @lines;

##</code><code>##

DSE 1232123456 ABCDEF96DS0 20100722 20120827KJHLK LKEDX 058305574 IAC 8 S73 WERTYU
DSE 987 ABCDEF96DS0 20100722 20120827KJHLK LKEDX 058305574 IAC 8 S73 WERTYU
DSE 12321234567890 ABCDEF96DS0 20100722 20120827KJHLK LKEDX 058305574 IAC 8 S73 WERTYU

##</code><code>##

DSE 1232123456                                         ABCDEF96DS0 20100722 20120827KJHLK LKEDX 058305574 IAC 8 S73 WERTYU
DSE 987                                                ABCDEF96DS0 20100722 20120827KJHLK LKEDX 058305574 IAC 8 S73 WERTYU
DSE 12321234567890                                     ABCDEF96DS0 20100722 20120827KJHLK LKEDX 058305574 IAC 8 S73 WERTYU