>perl -le"$_='7'; int if $ARGV[0]; print $_ | '123'" 0
723

>perl -le"$_='7'; int if $ARGV[0]; print $_ | '123'" 1
127