#!/usr/local/bin/perl5.12.2
use strict;
use diagnostics;
use utf8;
$c;