Help for this page

Select Code to Download

Select or download this

#! perl
use strict;
...
$new_msg =~ s/<t>/$total/g;

print "\nAfter applying the substitutions, \$new_msg is now:\n$new_msg
+\n";

Select or download this

18:30 >perl 820_SoPW.pl

...
Yes, I do have 7 apples!

18:30 >