perl -lpi -e '$f = q/tymchasovyi/; s/^([^(]*)/string $f/; $_ .= qq/\n$1($f);/' yourfile