#!/usr/bin/perl -l

use strict;
use warnings;
use IPC::System::Simple qw/capturex/;

my @args = "%s I\x27ll";
my $cmd = capturex("printf", @args);
print $cmd;