/test$/&&print$path_name,$/for@names; /test$/&&say$path_name for@names;