#!/usr/bin/perl -w

use strict;
my $foo_text .= $_ while (<DATA>);
print "$foo_text\n";

__DATA__
foo wears foo shoes at the foo store.

##</code><code>##

Use of uninitialized value at foo.pl line 4, <DATA> chunk 1 (#1)