Select Code to Download

#!perl -w
use strict;
...

print "\nAfter: \n\n";
printf ($opt_F, 'foo','bar');

Before: 
foo:\tbar\n%s:\t%s\n
After: 
foo:    bar