Select Code to Download

my( $num, $text1, $text2 ) = $line_from_html =~ m{^ (\d+) \. \s+ (.*?)
+ \s+-\s+ (.*?) $}x;