Select Code to Download

#!/usr/bin/perl -w
use strict;
...
Number of matches: 2

Number of occurences = 2

foreach ($string)
{
   s/^\s*//; #delete leading spaces
   s/\s*$//; #delete trailing spaces
}