I'd recommend merlyn's most excellent sh2perl

/J\

Hi, mlsrar. What have you tried, and which wall are you hitting (hopefully not Larry)? We'll be much more eager to help you when we see that you've put some effort into it. :)

Perl variable names ('scalars') actually begin with the dollar sign whereas in bash the dollar is used an operator to dereference the variable.

The print command should replace the bash 'echo'.

sed-like operators can be used directly perl without spawning a sed process.

Instead of direct use of a pipe to a program, use the open command (the documentation also refers to multichannel piping) to spawn the process and generate filehandles to read or write to the pipe.

update - done by davorg; now waiting for OPs update

_($_=" "x(1<<5)."?\n".q·/)Oo.  G°\        /
                              /\_¯/(q    /
----------------------------  \__(m.====·.(_("always off the crowd"))."·
");sub _{s./.($e="'Itrs `mnsgdq Gdbj O`qkdq")=~y/"-y/#-z/;$e.e && print}

#!/usr/bin/perl
use strict;
use warnings;
my $input = $ARGV[0];

my ($service, $state) =  $input =~ /Service:(.*)State:(.*)/s;
my $company = substr $service, 0, 6;

print <<EOF;
Service: $service
State: $state
CompanY: $company
EOF
[download]

You can look into using system for the last part.
You should still post your attempt to translate in perl.

Since you have specified larry's name here I will give Larry's answer for this Question.

Larry says in Perl Faq

Larry's standard answer for this is to send your script to me (Tom Christiansen) with appropriate supplications and offerings. :-( That's because there's no automatic machine translator. Even if you were, you wouldn't gain a lot, as most of the external programs would still get called. It's the same problem as blind translation into C: you're still apt to be bogged down by exec()s. You have to analyze the dataflow and algorithm and rethink it for optimal speedup. It's not uncommon to see one, two, or even three orders of magnitude of speed difference between the brute-force and the recoded approaches.