#! /bin/perl -f s//<000>/g s//<001>/g s//<002>/g s//<003>/g s//<004>/g s//<005>/g s//<006>/g s//<007>/g s//<008>/g s//<009>/g s//<010>/g s//<011>/g s//<012>/g s//<013>/g s//<014>/g s//<015>/g s//<016>/g s//<017>/g s//<018>/g s//<019>/g