#!/usr/bin/perl -w
use strict;
my $foo_text;
while ( <DATA> ) {
  $foo_text .= $_;
}
print "$foo_text\n";
__DATA__
foo wears foo shoes at the foo store