Separar variable PHP y su valor, con Perl

[jferrero]

Código Perl:

#!/usr/bin/perl
use 5.010;
use strict;
use warnings;
 
open my $PHP, q[<], 'admin.php'  or  die "ERROR: No puedo leer admin.php: $!\n";
 
while (<$PHP>) {
    if (/'(.+?)'.+?'(.+?)'/) {
        say "INSERT INTO tabla_admin ( variable, valor ) VALUES ( '$1', '$2')";
    }
}
 
close   $PHP;