if (m/$get/) {
   printf STDERR ("String = $_ \n");
}