#!/usr/bin/perl -w

use strict;
use warnings;

my @lines = grep {/->\s+tomcat\s+/} qx{ls -l /etc/rc.d/init.d};
my @inits = map {(split)[-3]} @lines;

print join("\n", @inits);

##</code><code>##

#!/usr/bin/perl -w

use strict;
use warnings;

my $dir = '/etc/rc.d/init.d';
opendir(my $dirh, $dir);
my @inits = grep {-l "$dir/$_" && (readlink("$dir/$_") =~ /^tomcat$/)} readdir $dirh;
closedir $dirh;

print join("\n", @inits);