#!/usr/bin/perl $_ = ; chomp; print "foo => '$_'";