codepad
[
create a new paste
]
login
|
about
Link:
http://codepad.org/3wGYdRCb
[
raw code
|
output
|
fork
]
Perl
,
pasted on Sep 12:
1
my
(
$text
)
=
"ccchcat"
;
$text
=~
m/([hc]?at)/
;
print
$1
.
"\n"
;
Output:
1
cat
Create a new paste based on this one
Comments: