The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.

while (<>)
 {
  s/__FUNCTION__\s+"\s*(.*?)"/"%s $1",__FUNCTION__/;
  print;
 }