#!perl -lp $_=y/6908//+y/8//