Ajuda com Array e foreach (PERL)

[Cash Override]

Olá galera
estou com um probleminha aqui estou
tentando imprimir uma variavel nessa linha

@array = qw ($perg);

mais não funfa olha o codigo fonte

#!/usr/bin/perl

my $perg;

print "Informe o seu Texto\t\n";
$perg = <STDIN>;

@array = qw ($perg);
foreach $color (@array){
print "$color\n";
}

[liquidificador]

Acho que você quis fazer isso:

#!/usr/bin/perl

my $perg;

print "Informe o seu Texto\t\n";
chomp(@perg = <STDIN>);

foreach $color (@perg)
{
        print "$color\n";
}

[fvox]

Wtf, man...
Não entendi muito. Mas se você quiser inserir uma escalar dentro de um array, utilize a função push.

use strict; 
use warnings; 
 
print "Informe o seu Texto\t\n"; 
my @array = (); 
chomp(my $perg = <STDIN>); 
push @array, $perg; 
print $_, "\n" for @array;  

[]'s

[Cash Override]

@Fvox
eu quero fazer um programa que deixa cada uma palavra separada cada uma em uma linha tipo:
Fvox
programador
de
perl

mais só que não está imprimindo a variavel no meu exemplo se puder ajudar !

[fvox]

Sorry pela demora pra responder. Não costumo vir muito aqui. Mas é isso?

print "Informe o seu Texto\t\n"; 
$_ = <STDIN>; 
s/\s+/\n/g; 
print;  

[]'s

[Cash Override]

Obrigado Fvox !