print join$/,<*.$ext>; #### print$_.$/for<*.$ext>;