gistfile1.pl

use strict;
use warnings;

my $re_paren;
$re_paren = qr {
  \(
    (?:
      (?>[^\(\)]+)
      | (??{ $re_paren })
    )*
  \)
}xs;
my $re_str = qr{"(?:\\"|[^"]*)*"};

my $src = join '', <STDIN>;

$src =~ s{
  (?:(?<=[^A-Za-z0-9_])|^)
  sprintf \s*
  \( \s*
  " ( (?:\\"|[^"]*)* ) "
  (?: \s* , \s* ($re_paren|[^,]*) )*
  \)
}{ print "yeah!:$1,$2,$3" }gxs;

print $src;