#!/bin/perl
##################################################
# This program takes a multi-line input from STDIN
# and converts it into a scalar input 
##################################################

@input = <STDIN>;
chomp(@input);
foreach $line (@input) {
   $DNA = $DNA . $line;
}

print "$DNA\n";

exit;