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