# %regexes = (first => ['(\w+) (\w+) (\w+)', '$1 $3'], 
#     second => ['and so on', 'and on'] );
# into
%regexes = (first => ["(\w+) (\w+) (\w+)", "$1 $3"], 
     second => ["and so on", "and on"] );