Select Code to Download

#!/usr/bin/perl -w
use strict;
...
var def=87654321 #note that this works even though
                 #the pre-condition of abc\d{5}
                 #occurs later in the line! Wow!

my @x =  (
            'smomedef12345',
...
prints:
def=12345678
def=87654321