perl regex begin