#!/usr/bin/perl

use strict;
use warnings;

chomp( my @input = <> );

##</code><code>##

chomp( my @input = split(/^/m, $input) );