Kevin Viel schreef: > ( my $sym = substr( $_ , $initial_position , $length )) =~ s/\s//g ; > push @Symbol , $sym ; > > It may be too much, but it still looks pretty clear to me.
Nobody forces you to put as much as possible in 1 line. Verboser: my $sym = substr $_, $start, $length; sym =~ s/\s+//g; # remove all whitespace push @Symbol, $sym; Minimalistic: push @Symbol, (my $sym = substr $_, $start, $length) =~ s/\s+//g; (even better within its own block, to minimalize the scope of $sym) If your symbols are inside $_, you can use push @Symbol, split; or the equivalent push @Symbol, /\S+/g; or maybe something more like push @Symbol, /[[:word:].-]+/g; -- Affijn, Ruud "Gewoon is een tijger." -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] http://learn.perl.org/
