What have you tried? Have you for example even tried printing the value in regexpans at then end of the process (assuming you can't figure out what it will contain)? Have you consulted any of the plethora of regex documentation in perldocs (perlre, perlretut ...)?

Note that PerlMonks is not a "Do your homework" service. If you show effort we will help, but show some effort first.