~ $ perl -le 'my $var = 0531; print $var'
345