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