String Perl

$text = "un";
print "Don't be ${text}happy.";