# ...
# zeilenweises lesen

chomp $line;
my @elements = split / /, $line;

# verarbeite @elements

print OUTFILE join ';', @elements;

# ...