$ perl -E '$name = q(Fred); $debt = 50; say sprintf q(You pay me %s$ 00 cents, %s, or else!), $debt, $name'

You pay me 50$ 00 cents, Fred, or else!