perl -MO=Deparse,-p
print $x= "hi";
chomp $x= "hi";
chop $x= "hi";
sprintf $x= "hi";
printf $x= "hi";
reverse $x= "hi";
join $x= "hi";
unlink $x= "hi";
die $x= "hi";
warn $x= "hi";
__END__
print(($x = 'hi'));
(chomp($x) = 'hi');
(chop($x) = 'hi');
sprintf(($x = 'hi'));
printf(($x = 'hi'));
reverse(($x = 'hi'));
join(($x = 'hi'));
unlink(($x = 'hi'));
die(($x = 'hi'));
warn(($x = 'hi'));