codepad
[
create a new paste
]
login
|
about
Link:
http://codepad.org/SR0id3rk
[
raw code
|
output
|
fork
]
Perl
,
pasted on Oct 18:
1
2
3
@foo
=
(
"aAa"
,
"bbb"
);
@bar
=
grep
(
/aAa/i
,
@foo
);
print
join
","
,
@bar
;
Output:
1
aAa
Create a new paste based on this one
Comments: