my $files = join(" ", (glob("0[89]-*.txt")));#I suffer from parentheticaphilia. sorry

##</code><code>##

opendir(my $DH, "."); # opens pwd

@files = grep {/^0[89]-.+\.txt$} readdir($DH);

closedir($DH);