#!/usr/bin/perl

my $a="a";

# These are parsed OK
printf _("%s\n"), $a;
printf (_("%s\n")), "$a";
printf _("%s\n")."", "$a";

# Parsing error
printf _("%s\n"), "$a";