Gabriele Cosmo
10 lines
95 B
Perl
Executable File
10 lines
95 B
Perl
Executable File
#! /usr/bin/perl
|
|
|
|
while(<STDIN>) {
|
|
chop;
|
|
s/.hh//;
|
|
print " -e \'s/$_/G4$_/g\' \\\n";
|
|
|
|
}
|
|
|