Select Code to Download

$_ = "abc_something" ;
print $_ . "\n" if /abc/ &&
   substr(  $_, 0, 4 ) =~ s/(.+)/" "x((length $1)+2)."#:"/e ;