The only difference (apart from changing the delimiters from '/' to '%' to reduce backslashing and improve readability) is that the /e modifier has been added to the substitution (meaning that perl code will be evaluated in the RHS of the substitution) and I have replace your variable with a call to the add_row() subroutine - for more on regular expressions please see the perlre manpage.

/J\