Experience: 1101 #### #from my ($xp) = $page =~ /Experience:<\/TD> (\-?\d+)<\/B><\/ #to my ($xp) = $page =~ /Experience:[^\d-]+(\-?\d+)/;