my $req = HTTP::Request->new(GET => 'https://www.google.com/finance/converter?a=3&from=USD&to=EUR');
$req->content_type('application/json');
my $re = $ua->request($req);
  $re->content =~ m|<span class=bld>(.+?)</span>|i and $span = $1;
  $ct = substr($1, 0, -6);
  print $ct;
  prints 2.77 according to the currency  usd to euro
  
##</code><code>##

  https://www.google.com/finance/converter?a=$m&from=USD&to=EUR