while($content =~ /id=(\d+)/sig){
    push(@disp, $1);
}