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