Select Code to Download

my $substring;
my $string="For those about to rock";
($substring)=$string=~/^.+?to (\w+)/;
print "So, we're going to $substring then?\n";