you 2 ge kong-ge zen-me-ban?

#!/use/bin/perl

open (FH, "text.txt") or die "Can't open text.txt";

while ($_ = <FH>) {

print $_;

@ feld = split (/ /,$_);

$station=0;

while ($feld[$station])

{

print $feld[$station]."\n";

$station++;

}

}

close(FH);

text.txt:

1 2 3 4 5

[402 byte] By [msdn] at [2007-11-17 11:05:59]