#!/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);