#$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" }