Perl

#!/usr/bin/perl -w

$a1[1] = " 9 19 6 9 7 ";
$a1[1] = ~/^\s*(.+)\s*$/;
@a22 = split(/\s+/, $1);
foreach $item(@a22) {
  print "|$item|\n"; 
}

Mozno poprobovat proshe, poprobyi nachinat i s 1. 
Mozet zarabotaet, no ne znay.

Можно и так:

#!/usr/bin/perl

$a1[1] = " 9 19 6 9 7 "; @a22 = split(/ /, $a1[1]); fpreach(@a22) { next if $_ eq ''; print "$_\n"; }

Опечатка - fpreach(@a22) = foreach(@a22)

8-)) ---------------------------------

Тьфу, да и вообще я тормоз - не врубился сразу, в чем именно состоит вопрос %)))