c:\@Work\Perl>perl -wMstrict -le
"my $function_used = 'memcpy';
 my $function_call = 'memcpy(a, b, sizeof(a));';
 $function_call =~ s/$function_used//g;
 print qq{'$function_call'};
"
'(a, b, sizeof(a));'