reg_capture5.pl using $_