Select Code to Download

#!/usr/bin/perl -w
use strict;
...
  printf "%3d %s\n", ++$count, $_ if $search_word =~ /$_/;
}