map {/dothis/} @variable; grep {/more stuff/} @more; #### open (A, ">File") or die; print A "hello"; print $somevar, "can be seperated like this";