#!perl -p $/=_;s//<>/ge;s/_//g