Select Code to Download

$line =~ s/^$pattern//;