my ($img_id) = $str =~ m/img_id=(\d+)/; my $prev_id = $img_id - 1; my $next_id = $img_id + 1;