#!perl -pi.bak

BEGIN {
    $i = 0;
    $next_regex = qr/toggle[(]/i;
}

$i++ if /$next_regex/;
$num = sprintf "%02d", $i;
s/toggle[(]'\d+'[)]/toggle('$num')/;
s/icon_details_\d+/icon_details_$num/;
s/details_\d+/details_$num/;
s/gallery_\d+/gallery_$num/;