$ perl -e '

$life = $dear;        # 生命诚可贵
($love = $dear)++;    # 爱情价更高
( $life = $love ) = 0 # 若为自由故
if $liberty == $null; # 两者皆可抛

'; echo $?
0