#!/usr/bin/perl -pw

s/.//g;