use strict;
use warnings;

print map { chomp; qq{$_ XX\n} } <DATA>;

__END__
line 1
line 2
line 3

##</code><code>##

line 1 XX
line 2 XX
line 3 XX

##</code><code>##

# Avoid performance hit on regexen by specifying
# -no_match_vars.
#
use English q{-no_match_vars};