This is an equivalent program:
#!/usr/bin/perl print "@ARGV\n"; print "$_\n" for grep length($_) <= 3, @ARGV;
Ha Ha even better, nice one Bob!
Perl is just way to awesome :)
-- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] <http://learn.perl.org/> <http://learn.perl.org/first-response>