Select Code to Download

Select or download this
```
   if ($out =~/$last(.*)$/s
```
Select or download this
```
   //m 
   //s 
   //ms
```

  1 #!/usr/bin/env perl
  2
...
 34 }
 35 #--------------------------------
 36 main;

Select or download this

--------------...------------
--------------...------------
...
-------------xxxx------------
--------------ddd------------
--------------...------------

Select or download this

--------------aaa------------
-------------xxxx------------
...
--------------ccc------------
-------------xxxx------------
--------------ddd------------

Select or download this

--------------...------------
--------------...------------
...
-------------xxxx------------
--------------fff------------
--------------...------------

Select or download this

--------------aaa------------
-------------xxxx------------
...
--------------eee------------
-------------xxxx------------
--------------fff------------