#!/usr/bin/perl -w
# Created Long Ago
# By Jeff Connelly
#
# BF / Perl Polyglot
# Duplicates each character two times from stdin to stdout (unbuffered)
# Fromm ~/mnt/ad4s2d/jeff/xmax/obperl/polyglot/cat.bf.pl

$/ = \1;
while(<>)
{
    () = [print $_, qq.$_.]
}