#!/usr/bin/perl
|
|
|
|
use warnings;
|
|
use strict;
|
|
|
|
# v
|
|
# e
|
|
# r
|
|
# t
|
|
# i
|
|
# c
|
|
# a
|
|
# l
|
|
# i
|
|
# z
|
|
# e
|
|
#
|
|
# a
|
|
#
|
|
# s
|
|
# t
|
|
# r
|
|
# i
|
|
# n
|
|
# g
|
|
|
|
my $input = <STDIN>;
|
|
foreach my $l (split //, $input) { print "$l\n"; }
|