Select Code to Download

Given the following file:

...
That is to say, the replacement text 
will presereve the original.

#!/usr/bin/perl

...
   }
   return $a;
}