Select Code to Download

# data expected to be a number
my ($iCount) = ($dataFromTheWeb =~ /^(\d+)$/);
...
my ($sPath) = ($dataFromTheWeb =~ /^([\w\/]+)$/);

# and so on...