#!/usr/bin/perl use warnings; use strict; $a=0; chomp($a=); print $a, "\n";