perl %1