#!/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"; }