print join( $/, grep( /\.rtf$/, @allfiles ));