#!perl -pl
y/5-8/4-7/;$_=oct