perlexperiment: embedded code in regex not experimental