#!/usr/bin/perl -w

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

__DATA__
foo wears foo shoes at the foo store.