$one=<){ print $one if/one/; print $scr if/scr/; print $eng if/eng/ }