print $& if /^(?=[^\z])/x;