Regular Expression Perl

while(){
    print if s/\n/\t/;
}
__DATA__
    AA AA AQA 101