[질문] palindrome 문제 "공장장이 장이다."

#!/usr/bin/perl
use strict;
use warnings;
 
my $input =<STDIN>;
chomp $input;
 
my @arr = split //, $input;
foreach my $s ( 0 .. $#arr-1 ) {
    foreach my $e ( $s+1 .. $#arr ) {
        next if ( $arr[$s] eq ' '  or  $arr[$e] eq ' ' );
        my $str = join '',grep $_ ne ' ', @arr[$s .. $e];
        if ( $str eq reverse $str ) {
            print join '', map $_, @arr[$s .. $e],"\n";
        }
    }
}

abbc bcd <-입력
bb
bc b
c bc

a bcc cba <- 입력
a bcc cba
bcc cb
cc
cc c
c c