#$files[0] = '/usr/local/bin/foobar/a.html'
#$files[1] = '/usr/local/bin/foobar/b.html'
#$files[2] = '/usr/local/bin/foobar/c.html'
#$files[3] = '/usr/local/bin/foobar/d.html'
#$files[4] = '/usr/local/bin/foobar/e.html'
#$files[5] = '/usr/local/bin/foobar/f.html'
####
$tracker =
<
b.html
c.html
d.html
e.html
f.html
EOQ
$path = "/usr/local/bin/foobar/";
####
@ttt = split /
\n/, $tracker;
for (@ttt) {
print "$_\n";
}
####
print join ':', split / */, 'hi there';
####
@files = join split /
\n/, $tracker, $path;
foreach (@files) {
print "$_\n"
}