- or download this
do_something($_) for qw(
foo
bar
baz
);
- or download this
do_something($_) for qw(
foo
bar # introduced November, 2005
baz # deprecated - remove by December, 2006
);
- or download this
#!/usr/bin/perl
...
s/#.*$// for @lines;
map { split ' ', $_ } @lines;
}