#!perl -pl
$_=y/0689//+y/8//