script promoção steam (perl)

um script basicao em perl que retorna os games em promoção na steam

Código (Forge Crash):

#!/usr/bin/perl
#coder: kodo no kami

use WWW::Mechanize;

$request = new WWW::Mechanize;
$request->agent("Mozilla/5.0 (Windows NT 6.1) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/68.0.3440.106 Safari/537.36");
$request->get("https://store.steampowered.com/search/?specials=1");
   
@trecho = $request->content =~ /End Extra empty div(.*?)End List Items/si;
@games = $trecho[0] =~ /("title">.*?clear: left)/sgi;
   
foreach $g(@games){
  @nome = $g =~ /title">(.*?)</mi;
  @preco = $g =~ /search_price.*>(R. .*?)<\/div>/si;
  $preco[0] =~  s/^\ +//g;
  $preco[0] =~  s/\ +$//g;  
  @porc = $g =~ /<span>(.\d+\%)<\/span>/s;  
  print("$nome[0] ~ $preco[0] ($porc[0]) \n");
}

reaproveitando as regex é bem simples recriar em outras linguagens ou criar um bot no discord tipo a minha waifu bot *-*