#!/usr/bin/perl
use strict;
use warnings;

while (my $line = <DATA>)
{
   print $line;
}


__DATA__
aBC 
XYAS