my @array = <DATA>;
chomp;
for my $array (@array){
    $array =~ s/\n$// if ($array !~ /;[^;]*;/) && ($array =~ /^\w/);
    $array =~ s/^\s*([^\s])/$1/;
}
print @array;

__DATA__
The Road Ahead1;Completely Revised and 
               Up-to-Date; 002564418
road ahead2; America?~@~Ya creeping revolution;00345678
The road ahead3;[Address made before the Regional 
         Foreign Policy Conference; 004561963