use Modern::Perl;

while (<DATA>) {
    do {print; next} unless /^eval/;
    s/(?<=\[)\d+(?=])/int(rand(99999))/ge;
    print;
}

__DATA__
@a = ("'hello world'",'print ', ';');
eval("$a[1]$a[0]$a[2]");