Select Code to Download

/^\S/ # at least one followed by
/^\s/ # and there are two lines of this

#!/usr/bin/perl -w
use strict;

...
    }
    $previous_line = $line;
}