my @LINES = ; my $filedata = join '',@LINES; #### my $filedata = ;