#!/usr/bin/perl -w
  use strict;
  print "This example uses the global modifier, 'g'\n\n";
  my $myTestString\; =\; "Star\; Training\; Company\; courses\; are\; great.\; Choose\; Star\; for\; your\; training\; needs.";\; my$myOnceString = $myTestString;\; my$myGlobalString = $myTestString;\; my$myPattern = "Star";
  my $myReplacementString\; =\; "Moon";$myOnceString =~ s/myPattern/myReplacementString/;
  $myGlobalString\; =~\; s/$myPattern/myReplacementString/g;
  print "The original string was 'myTestString'.\n\n";
  print "After a single replacement it became '$myOnceString\text{'}.\backslash n\backslash n";\; print\; "After\; global\; replacement\; it\; became\; \text{'}$myGlobalString'.\n\n";