my $html = $res->as_string;
# parse each one to avoid undefined warnings
my ($When) = ($html =~ m/ as of (\d{4}\.\d\d.\d\d\s\d\d:\d\d:\d\d\s\S+)/gi);
my $html = $res->as_string;
# parse each one to avoid undefined warnings
my ($When) = ($html =~ m/ as of (\d{4}\.\d\d.\d\d\s\d\d:\d\d:\d\d\s\S+)/gi);