Search Results

I'd test it character by character instead of testing long strings. I'm not too fluent in perl, but hopefully the logic on this should be followable:

$ cat palindrome.awk
BEGIN { FS=""; ORS="";...

$ cat test
~dta.yunm
shhshsgggssssjsksjs
sggsjshsjsjssss
shshshhshshshs

$ perl -lane 'print $_ if ($.==1); printf("%s",$_) if($. >1)' test
~dta.yunm...