- or download this
$ cat name1.txt
0. Amber BYU
1. Kim BGSU
...
1. B F K
2. A I J
$
- or download this
#!/usr/bin/perl -w
use strict;
...
say "returned was \n $$return";
my $return2 = format_texts( $rvars, $return );
__END__
- or download this
sub pop_texts {
use strict;
...
my $reftext = \$text1;
return $reftext;
}
- or download this
$ perl hears1.pl
enter basename for file
...
Kim Wshington was harmed by A I J