#!/usr/bin/perl -Xi
# usage $0 file_a file_b ...
while(<>){}