print"$path_name\n"x grep/test$/,@names;

say$path_name x grep/test$/,@names;

##</code><code>##

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

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

##</code><code>##

print"$_\n"x grep/test$/,@names;

say for grep/test$/,@names;

##</code><code>##

/test$/&&print$_,$/for@names;

/test$/&&say for@names;

##</code><code>##

print/.*test$/g,$/ for@names;

say/.*test$/g for@names;