ダイヤモンド演算子

diamond.pl

#! /usr/bin/perl
use strict;
use warnings;
use 5.010;

my $n = "\n";

while(<>){
	# chomp; で、改行を取り消すことが可能
	print "$_";
}

=
result

っっっっっっ
っっっっっっ
adqd
adqd
DWQDDC
DWQDDC
039
039

---
ファイルの読み込みも可能

% diamond.pl diamond.pl

#! /usr/bin/perl
use strict;
use warnings;
use 5.010;

my $n = "\n";

while(<>){
	# chomp; で、改行を取り消すことが可能
	print "$_";
}

=cut

似たような形で while() も存在するけど、これはファイルの読み込みは不可能で、標準入力しかできない