Select Code to Download

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