#!/usr/bin/env perl $a=<