#!/usr/bin/perl my $input = join '', ; exit 0;