6 lines
57 B
Perl
6 lines
57 B
Perl
while (<>)
|
|
{
|
|
s/get_/Get/g;
|
|
s/put_/Set/g;
|
|
print;
|
|
} |
while (<>)
|
|
{
|
|
s/get_/Get/g;
|
|
s/put_/Set/g;
|
|
print;
|
|
} |