Wrapping search. Perl regex while searching. Center search matches and jumps