use warnings;
use strict;
use feature 'say';

while ( my $line = <> ) {
    chomp $line;
    my @F = split /,/, $line;
	if ( $line =~ /module/ ) {
		say $line;
	}
	else {
		say ".$F[0]($F[0])$F[1]";
	}
}