John 1:1 -

our( $beginning, $Word, $God ) = ('beginning','Word','God');
$beginning =~ s/nn/n${Word}n/;
$Word = $Word + $God;
$Word = $God;
[download]

Granted, not all regex :)