c:\test>perl -le"my $n = oct( $ARGV[ 0 ] ); print 'As a string:' . $n; " 0644
As a string:420