open (DATA, $data);
	my @secdata = <DATA>;
	my ($str) = join "",@secdata;
close(DATA);

##</code><code>##

my $str = read_file $data;