#!/usr/bin/env perl 

while (<>) {print}

##</code><code>##

foo
bar
nose
cuke