my ($task_number) = $line=~/\$task_number=(\d)/;