Help for this page
1 1 1 2 1 1 2 1 1 1 1 1 2 2 1
my $anchor = @ARGV ? '' : '^'; printf "%d\n", $_ = '1'; ... } print $_ = $new; } until ( <STDIN> =~ /\S/ );