#!/usr/bin/perl $|=1; while () { print "x$_"; }