Select Code to Download

my $text = 'The quick red fox jumped over the lazy brown dog';
my $search = 'quick';
...
else {
    print "$search found $location bytes from the front" . ("!"x$locat
+ion), "\n";
}