Select Code to Download

$def =~ s/
    (^\.\w+\s)      ## $1 := A '.', followed a word and a space
...
        $           ## The end of the line/string
    )
/$2$5/x;        ## put back just first word and the 'select' etc

#! perl 
use warnings;
...

print $def;